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EDITORIAL ——— 


Les Logiciels praposés actuellement font penser au marché structuré, polyvalent. (je cherche encore des super- 
de L'automobile: avant il y avait Le moteur et La car-  Latifs) bref, génial, il n'en reste qu'un: TURBO-Forth. 
rosserie, maintenant on à rajouté L'auto-radio, l'éclairage  Citez-moi un autre Langage qui permet de vérifier une pro- 
indirect de Lecteur de carte, La télécommande de serrure...  cédure sans exécuter tout Le put un Langage auto- 
IU en est de même sur Les micros: avant il } avait CP/M risant La mise au sun et La vérification en Cours de 
avec 5es 12k, puis MSD0S 2.0 avec 50k, après MS atio interpréter et compiler Le contenu 
pe de 100k, et maintenant 05/2 qui fait plus de 500k. d'un fichier, pouvant s'interfacer à tout y compris Ce qui 
ette. surenchère sert-elle L'utilisateur ou Le fabricant n'existe pas encore et qui, par La foi que mettent ses 
pour justifier Le prix d'un système par Là taille de Sa concepteurs et ses utitisateurs en Lui, devient chaque 
mémoire? Et cette folie gagne Les tableurs, es traitements jour plus séduisant. 


05 3.3 avec compilation, qui peu 


de texte, Les ALTER Qui n'a pas sa version 2.n, . . | | ; 
2.n#1..9.0, 5,1, TVA non comprise et incompatibilité par- TURBO-Forth est un merveilleux jouet, mais un jouet intel- 
tielle garantie avec La précédente version. Ligent, Tout est dévoilé dans Les fichiers source, un 


Un | Lo | | atout inexistant avec Les autres Langages. TURBO-Forth 
Le Vral virus ne viendrait-il pas de cette inflation qui bénéficie d'une assistance télématique interactive. TURBO- 
DES à La disparité entre utilisateurs: dBASE II c'est Forth voit sa bibliothèque RRIrIAuE croître AU jour. 
jen, BASE III, c'est mieux, dBASE IlI+ c'est encore Si nous, Les concepteurs de TÜRBO-Forth, avions Êté aussi 
mieux, BASE IV c'est... (attendez, je cherche dans Le nombreux que ceux de TURBO-Pascal, et disposant des mêmes 
Larousse des Superlatifs) .. beaucoup plus mieux! Le temps moyens et connaissances, il n'y aurait peut-être main- 
de vous familiariser avec un potes et déja vous n'êtes tenant plus qu'un seul langage de conception: TURBO-Forth. 
QE à La AE Le virus dans ce foisonnement provient plus Alors amis du "Futur Numérique Proche", n'attendez pas que 
réguemment des tes non détectées à La conception et  TURBO-Forth vous rattrape, adoptez-le de suite et découvez 
dûes à une commercialisation hätive mais nécessaire dans un sa formidable puissance, Choisissez entre La 2CV (OÜSCHWO 
marché évoluant aussi rapidement. Tirer Le premier pour ne pau Les grues et La FERRARI TURBD-Forth, vous ne 
pas être coulé, et tant pis pour l'utilisateur final. e regretterez pas. 


Alors si vous cherchez un Langage de conception logicielle 
performant, convivial, modulaire, modifiable, extensible, 


FORTH: CRIBLE D'ERATHOSTHENE ; è 

Une bien belle passoire ma foi. 

VARIABLES LOCALES REVUES ET CORRIGEES | 2 
Plus de sécurité, même facilité d'emploi que La précédente version. 

DIVISION À PRÉCISION INFINIE | 3 
Petite application du précédent sujet. 

PROQUITS 32 AITS NON SIGNE 3 
Idem ci-dessus. 

UTILITAIRES DE GESTION DE FICHIERS ! | …: 3 
Le direct, comme Les matchs de foot sur CANAL+, mais appliqué aux fichiers. 

TURBO-FORTH RESIDENT Ù 
Tout ceux qui n'ont pas encore TURBO-Forth vont Cra-à-a-4-aaahhh-quer. 

RECOPIE D'ECRAN SUR JUPITER ACE 10 
Oui, il est encore utilisé! 

ESSAIS DE GRAPHIQUES SUR CARTE HERCULES 12 


On avait déja Les fonctions graphiques en carte CGA, maintenant La panoplie se complète. 


PROGRAMMER SOUS GEM EN VOLKSFORTH-83 SUR ATARI ST. , 
La, Les allemands vont avoir une surprise, car ils n'ont pas encore sorti de programme de cette taille 
dans VIERTE DIMENSION. Ach, diese Franzosen.… 


DIVISION ET RACINE CARREE EN LM 22 
Quel boulot, chapeau! 


COMMUNICATION: LA LIAISON MINITEL-PC Û 
Un mariage heureux et durable. 


Toute reproduction, adaptation, traduction partielle du il est demandé de ne pas masquer Les références inscrites 
Contenu de ce magazine sous toutes Les formes est vivement en bas de 2 et dans Les autres cas de citer 


encouragée, à l'exception de toute ea à des fins L'ASSOCIATION fs I (Association Loi 1901). 


commerciales. Dans te cas de reproduction par photocopie, 
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TEDI N°43. Mars 1188 1 


CRIBLE D' ERATHOSTHENE BENCHMARK 


revu par M.ZUPAN 


Pour: TURBO-Forth 83-Standard 
adaptable: F83 Laxen et Perry MSDOS 
Vo1ksFORTH 


Téléchargement: 3615 SAM*JEDI 


LISTING DU PROGRAMME: ERATHOS. FTH 
echo off 

FORTH DEFINITIONS DECIMAL 

8190 CONSTANT SIZE 

\ pseudo-constante taille table 1 à n/2 


: PREMIERS ( n -- ) 
\ affiche nombre de premiers de Tàn 
4 MAX DUP 2/ 1- IS SIZE PAD SIZE 1 FILE 
2 SIZE O 
DO PAD I + C@ 
IF 1 2* 3 + DUP I + 


BEGIN  DUP SIZE < 
WHILE O OVER PAD + CI OVER + 
REPEAT DROP DROP 1+ 
THEN 
LOOP 


." Premiers entre 1 et ". ; 


: LISTE ( -- ) 
\ affiche liste des nombres premiers calculés 
\ par PREMIERS 
CR 1. 2. SIZE © 
DO PAD I + C@ 
IF 1 2% 3 +. THEN 
STOP? ?LEAVE 
LOOP ; 
EOF 
Ce petit programme est un test bien connu illustrant la 
rapidité du FORTH : 


10000 PREMIERS affiche le nombre de nombres premiers 
compris entre 1 et 10000 comptés selon le très classique 
algorithme du crible d'Erathosthène (vers 284-192 av. J.C.) 


Vous pouvez contrôler la réalité d'un comptage N PREMIERS 
en demandant à Forth d'afficher Ta liste des nombres en 


tapant LISTE. 


FORTH 


VARIABLES LOCALES 


REVUES ET CORRIGEES 


auteur: Harvey GLASS 
adaptation F83: Marc PETREMANN 
modifs vocabulaire: Michel ZUPAN 


pour : TURBO FORTH 
F83 LAXEN et PERRY CP/M et MSDOS 
adaptable: VolksFORTH ATARI 


Téléchargement: 3615 SAM*JEDI 


Ce programme a déja été diffusé dans JEDI. Mais la première 
version n'était pas sécurisée. En effet, un nombre trop 
important de variables locales grignotait le vocabulaire 
FORTH et plantait le système. M.ZUPAN a apporté une 
correction tout en conservant la syntaxe des mots utilisés 
<DECLARE <DEFINE VAR LOCAL TEMP et >>. 


En cas d'erreur de compilation, il suffit de taper DECLARE> 
pour ‘recoudre' son vocabulaire sans dégats. 


avez déja exploité dans des programmes es 
rien à y modifier. 


Si vous 
variables locales, vous n'aurez 


JeDri N° 43 - MARS 1988 


LISTING DU PROGRAMME:  ALEPH.FTH 


ONLY DEFINITIONS ALSO FORTH VOCABULARY ALEPH 
ONLY FORTH ALSO ALEPH ALSO DEFINITIONS HEX 


CREATE #LST 50 ALLOT 
#LST 4E + 
CONSTANT #LSO 
VARIABLE #PTR 
VARIABLE DP-SAVE 


\pile lambda 


\ point de débordement 
\ pointeur pile lambda 
\ sauvegarde de HERE 


: >L (Sn--) \ empile lambda 
#PTR DUP @ DUP 2- DUP #LST > IF ROT ! ! 
ELSE TRUE ABORT" pile lambda pleine" THEN ; 

: L> (S-—-n) \ dépile lambda 
#PTR DUP @ 2+ DUP ROT ! @ ; 

: LS (Sm--n) \ lecture lambda 
#PTR@+6@ ; 

: LS! (Snm--) 
#PTR @ + ! : 

: #POP (S n -- ) \ suppression de n valeurs sur lambda 
#PTR +! ; 


\ stockage lambda 


DECIMAL 

4 CONSTANT 4 6 CONSTANT 6 8 CONSTANT 8 
10 CONSTANT 10 12 CONSTANT 12 14 CONSTANT 14 
: [2-14]  (Sn--) 

\ accélère l'accès aux premières locales 


CASE 20F [']2, ENDOF 
4 0F [']4, ENDOF 
6 0F ['16, ENDOF 
8 OF [']8, ENDOF 
10 OF [']10 , ENDOF 
12 0F ['] 12, ENDOF 
14 OF [']14, ENDOF 
DUP [COMPILE] LITERAL ENDCASE ; 


HEX 
FORTH DEFINITIONS 
: <DECLARE (S -- ) \ débute une déclaration ALEPH 
#LSO #PTR ! 
CURRENT @ OUP ['] ALEPH >BODY = IF CR 
TRUE ABORT" <DECLARE ignoré : ALEPH ne peut recevoir une 
définition ALEPH" 
THEN AVOC ! 
ALSO ALEPH ALSO DEFINITIONS 
HERE DP-SAVE ! 
400 ALLOT \ espace réservé à la définition aleph 
0 >L:; 


: DECLARE> (S -- ) 

\ rétablit les vocabulaires et oublie les locales 
PREVIOUS PREVIOUS 
AVOC @ DUP CURRENT ! CONTEXT ! 
DP-SAVE @ (FORGET) ; 


\ en cas d'erreur dans une définition ALEPH i1 faut 

\ exécuter un DECLARE> pour récupérer l'espace utilisé 
\ sauf s'il s'agit de l'erreur "ALEPH ne peut recevoir 
\ une définition ALEPH' 


5 VAR € <mot> -- ) 

\ définition d'une variable ALEPH transitoire 
CREATE L> 1+ DUP >L 2* C, IMMEDIATE 
DOES> C@ [2-14] COMPILE LS@ ; 


: LOCAL ( <mot> -- } \ définition d'une variable locale 
CREATE L> 1+ 100 + DUP >L OFF AND 2* C, IMMEDIATE 
DOES> C@ [2-14] COMPILE LS@ ; 


: LET ( valeur variable -- ) 
\ affectation d'une variable locale 
('] LS! HERE 2- ! ; IMMEDIATE 


: <DEFINE ( <mot> -- ) 
\ définition utilisant les variables ALEPH 
DP-SAVE @ DP ! 
AVOC @ DUP CURRENT ! CONTEXT ! 
{CSP 
CREATE HIDE 2 LS@ 100 / ?DUP 


IF BEGIN COMPILE O 1- ?DUP O= UNTIL THEN 
2 LS@ OFF AND ?DUP 

IF BEGIN COMPILE >L 1- ?DUP O= UNTIL THEN 
] ['J : @ LAST @ NAME> ! ; 


1 >> (S -- ) \ fin de définition sous ALEPH 
2 LS@ OFF AND 2* [2-14] COMPILE #POP 
[COMPILE] ; 

HERE DP-SAVE 1! 
DECLARE> ; IMMEDIATE 


ONLY FORTH ALSO DECIMAL 
EOF \ Mode d'emploi en fin de ce fichier. 


Le module ALEPH permet d'utiliser des variables locales 
déclarées dans un esprit "Pascal-like". Il est destiné à 
faciliter l'écriture de définitions complexes pour 
lesquelles les manipulations de la pile (dup over swap rot 
pick ...) seraient délicates. On utilise ici une pile 
accessoire dite pile lambda dont les valeurs sont déclarées 
sous forme de Variables locales c.a.d à définitions 
transitoires. Un exemple vous expliquera mieux la syntaxe : 


FORTH 


DIVISION A PRECISION INFINIE 


par Michel ZUPAN 


: TURBO-Forth 
F83 Laxen et Perry MSDOS et CP/M 
adaptable: VoiksFORTH ATARI 


pour 


Ce programme est situé après EOF dans ALEPH.FTH lequel est 
téléchargeable depuis 3615 SAM*JEDI. 


DIVISE affiche le résultat d'une division ‘décimale! signée 
dans Va base courante avec TOUS les chiffres après la 
virgule. Mieux que Ja virgule flottante, non? 
Rassurez-vous: si Ta suite est infinie, vous pourrez 
l'arrêter au clavier. 


LISTING DE DIVISE: 


<declare var dividende 
var diviseur 
local reste 
<define divise (S n1 n2 -- ) 
diviseur 0= abort" zéro pour vous !" 
cr dividende ." divisé par " 
diviseur  , ."-" 
dividende 0< diviseur 0< xor 
if ascii - emit then 
diviseur abs diviseur let 
dividende abs diviseur /mod 
(.) type ascii . emit 
reste let 
begin 
reste stop? not and while 
reste base @ * 
diviseur /mod (.) type 
reste let 
repeat 
>> 
Si vous ré-écrivez ce DIVISE en FORTH usuel, comptez Îles 


opérateurs de pile (dup rot etc... ): 
quoi peut servir le vocabie ALEPH, 


vous comprendrez à 


FORTH 


PRODUIT 32 BITS NON SIGNE 


par Marc PETREMANN 


: TURBO-Forth 
F83 LAXEN et PERRY MSDOS et CP/M 


Adaptable : VolksFORTH ATARI 
complément: 79-Standard (en fin de programme) 
non diffusé en téléchargement. 


LISTING DE XD* 


\ soit à exécuter ud3 := ud1 * ud2 , on pose 


\ udih ud11 h pour high, 1 pour low 

\ ud2h  ud21 

\ De SES USE DOS Due de 4 

\ +1h +11 t1:=ud11#ud21 en 32 bits 
\ +t2h +21 0 t2:=udth#ud21 en 32 bits 
\ +3h +31 0 t3:=ud11*ud2h en 32 bits 
\ t4h t41 0 té:=ud1h#*ud2h en 32 bits 
mme ne sera exploité que: 


\ inexploité ud3h  ud31 ud3:=T1+(t21#256)+(t31*256) 


<DECLARE VAR ud11 VAR ud1h VAR ud21 VAR ud2h 
LOCAL +11 LOCAL t1h LOCAL t21 LOCAL t2h 
LOCAL +31 LOCAL t3h \ LOCAL t41 LOCAL täh 
( inexploitées) 
<DEFINE XD* ( ud1 ud2 --- ud3 } 


\ produit de deux ud non signés 
ud11 ud21 UM* th LET 
udih ud21 UM* +2h LET 
ud11 ud2h UM* +t3h LET 

\ udih ud?2h UM* t4h LET 
( résultat inexploité) 

\ somme des produits partiels 
11 t1h t21 O D+ +31 O D+ >> 


+11 LET 
+21 LET 
+31 LET 
+41 LET 


\ plus compréhensible que la définition suivante: 

\: XD ( ud1 ud?2 --- ud3) ( en FORTH 83-Standard) 
\ OVER 4 PICK UM* >R >R 

\ 3 ROLL UM* DROP >R UM* DROP 

\ O SWAP R> O SWAP D+ R> R> D+ : 

\: XD* ( ud1 ud2 --- ud3) ( en FORTH 79-Standard) 
\ OVER 5 PICK U* >R >R 

\ 4 ROLL U* DROP >R U* DROP 

\ O SHAP R> O SWAP D+ R> R> D+ :; 

\ Exemple d'exécution: 

\ 


35000. 20000. XD* UD. affiche 700000000 


FORTH 


UTILITAIRES DE GESTION 
DE FICHIERS 


par Michel ZUPAN 


Pour : TURBO-Forth 83 Standard 
Adaptable: partiellement F83-Laxen et Perry MSDOS 


Téléchargement: 3615 SAM*JEDI 


Ce programme remplit diverses fonctions: 


— Savoir si un fichier est autorisé en lecture ou 
écriture. 

- modifier ce type d'accès quand survient l'erreur ‘accès 
interdit. 

- récupérer et modifier les date et heure de mise à jour 
d'un fichier. 

- pouvoir tester Ta taille d'un fichier existant. 

- utiliser des fichiers en accès direct: ouvrir un tel 
fichier, lire ou écrire des enregistrements, allonger Île 
fichier, 1e fermer. 

- lire et compiler les fichiers blocs du F83 de Laxen et 
Perry. 

- convertir un fichier blocs 
TURBO-F83. 


F83 en fichier texte 


REMARQUE IMPORTANTE: ce programme est disponible dans Île 
module M3 du package TURBO-Forth en compagnie d'autres 
programmes déjà diffusés dans JEDI. Le prix du module M3 
est de 37,00 Fr. 


LISTING DU PROGRAMME:  UFILES.FTH 


\ eee he me he He DE De De DK De NE EC De De Ce DE De ee > 3e D ee De D D: 3e D fe De 3 D DE DB D A De DR DE D CIC HE 
\ 1) Utilitaires d'attributs de fichiers 
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£ 


\ eee ee see ee IE HER DE RD DE DE ee eee ID HE DH IIEN HER 


HEX \ primitives ms-dos : 
CODE (USING) ( att adr-pathname -- f1) 
\ modification d'attribut 


DX POP CX POP 4301 # AX MOV 21 INT 
U>= IF  O # AX MOV THEN 1PUSH 
END-CODE 


CODE (USING?) ( adr-pathname -- att ft) 
\ interrogation d'attribut 
DX POP 4300 # AX MOV 21 INT 
U>= IF O0 # AX MOV THEN 1PUSH 


END-CODE 


CX PUSH 


DECIMAL \ mots utilisateur : 
: USING ( <filename> att -— ) 
\ détermine l'attribut d'un fichier 
FILENAME (USING) ?D0S-ERR ; 


: USING? ( <filename> -- att ) 
\ délivre l'attribut d'un fichier 
FILENAME (USING?) ?DOS-ERR ; 


\ L'attribut d'un fichier est un octet dont Îles 

\ bits 0 à 5 sont à 1 si: 

: fichier utilisable en lecture seule. 

: fichier caché (non affichable, non effaçable) 
: fichier système ( recopiés par SYS ) 

: fichier nom du volume 


ru Ta TT 
[3 
=. 
4 

ui & &w D — © 


bit 4 : répertoire 
bit 5 : bit d'archivage indiquant que le fichier a 
été modifié 


\ ea RD RSR D DH DEN RH DE HD DH DC HE DE HE DEEE NE HO HEC 


\ 2) Utilitaires de date et heure d'un fichier 
NE 


HEX \ primitives ms-dos : 
CODE (FILEDATE) € dtime hnd1 -- f1 ) 
\ modification date et heure 


BX POP CX POP DX POP 5701 # AX MOV 21 INT 
U>= IF O0 # AX MOV THEN 1PUSH 
END-CODE 


CODE (FILEDATE?) ( hndl -- dtime f1 ) 
\ interrogation date et heure 


BX POP 5700 # AX MOV 21 INT DX PUSH CX PUSH 
U>= IF  O # AX MOV THEN 1PUSH 
END-CODE 

DECIMAL 

: DT>FDT ( jour mois année heure min -- dtime ) 


32 * SWAP 2048 * + >R 
1980 - O MAX 512 * SWAP 32 * + + R> ; 


: .FDT  ( dtime -- ) 
BASE @ >R DECIMAL 
SWAP 0 512 UM/MOD 1980 + SHAP 32 /MOD SHAP 
(.) TYPE ASCII - EMIT (.) TYPE ASCII - EMIT . 
0 2048 UM/MOD 0 <# # # #> TYPE ASCII : EMIT 
32 / O <# # # #> TYPE SPACE R> BASE ! ; 


\ mots utilisateurs: 

: FILEDATE ( <filename> jour mois année heure min -- ) 
5 ?ENOUGH DT>FDT OPEN DUP >R (FILEDATE) 
?D0S-ERR R> (CLOSE) ; 


: FILEDATE? ( <filename> -- ) 
\ affiche date et heure fichier 
OPEN DUP (FILEDATE?) ?DOS-ERR .FDT (CLOSE) ; 


\ coke tee te ee te 3e He D 3 8 De a > DC 3 3 D DE 3 D D 3 ED DRE ED DR DCI DE De 3 LE NE DIR EE 3 DCI DE CHE III 


\ 3) détermination de la longueur d'un fichier 
he ee RE CHEN MED DRE ERIC RCII HIER 
: FILESIZE ( <filename> -- dlen ) 
OPEN DUP O0 O ROT 2 (SEEK) ?DOS-ERR ROT (CLOSE) ; 


\ Exemple 
\ Soit un fichier ESSAI.TXT dans le répertoire courant 


\ 
Trot N°43-MARS 1988 


\ 1 USING ESSAI.TXT 
\ autorise ESSAI.TXT en lecture et écriture 
\ USING? ESSAI.TXT . 

\ affiche 1 l'attribut donné à ESSAI,TXT 

\ 1 1 1988 15 30 FILEDATE ESSAI.TXT 

\ date au 1/1/88 15h30 le fichier ESSAI.TXT 
\ FILEDATE? ESSAI.TXT 

\ affiche alors 1-1-1988 15:30 

\ FILESIZE ESSAI.TXT UD. 

\ ‘affiche la longueur du fichier ESSAI.TXT 
\ 


De Die eo De De DE De DE HG DEC HE DC HR DUC DÉS DIE DC IN DCE HE IEC DES D NC DIE DEC DC DA DUC DUC HE DE DIE DC DC HR DRE HD DEC DCI DR DE DE I DC De 
\ 4) Gestion de fichiers en accès direct 
\ DGA HR D de he A 3 DS HD D DH DRE DC IEC DUC DRE DEC DC IR D D CIRE HDI DC DE DE DC De D Duc DES DC DC IEC DUC NRC I IRC ICI HE NE IRC RE NCIS 
VARIABLE <FILE 
\ ticket du fichier utilisé en accès direct 
VARIABLE B/REC \ longueur d'un enregistrement 
VARIABLE CAPACITY 
\ nombre d'enregistrements dans le fichier 
-1024 LBUF FILES 6 + * - 
CONSTANT LIMIT 
\ fin du tampon de lecture-écriture des accès directs 
\ placé en dessous des tampons réservés à TURBO-FORTH 
5: PFILE-R ( -- ) 
\ vérifie ouverture d'un fichier accès direct 
<FILE @ 0= 
ABORT" pas de fichier ouvert en accès direct!" : 
: LOCATE ( n -- ) 
\ positionne le pointeur fichier à l'enregistrement n 
?FILE-R DUP CAPACITY @ U> 
ABORT" enregistrement hors limite! 
B/REC @ UM* <FILE @ 0 (SEEK) ?DOS-ERR 2DROP :; 


\ mots utilisateur : 
\ ouverture, lecture,écriture,allongement, fermeture 


: OPEN-R ( <filename.ext> b/rec -- ) 
\ ouvre où crée un fichier en accès direct 
B/REC ! \ précisant la longueur d'enregistrement 
?OPEN  PATHWAY 
DUP O (SEARCHO) IF 2 (OPEN) 
ELSE O (CREATE) 
THEN ?DOS-ERR 
DUP O O ROT 2 (SEEK) ?DOS-ERR 
B/REC @ UM/MOD CAPACITY ! DROP 
<FILE ! ; 


: RECORD  ( -- adr long) 
\ tampon lecture-écriture d'enregistrement 
B/REC @ LIMIT OVER - SWAP ; 


: READ Ç n -- ) 
\ lit le n-ième enregistrement depuis le fichier 
LOCATE DSEGMENT RECORD <FILE @ (GET) ?DOS-ERR DROP ; 


: RITE(n--) 
\ écrit le n-ième enregistrement dans le fichier 
LOCATE DSEGMENT RECORD <FILE @ (PUT) ?D0OS-ERR DROP ; 


: APPEND ( -- ) \ ajoute le tampon en fin de fichier 
?FILE-R O O <FILE @ 2 (SEEK) ?DOS-ERR 2DROP 
DSEGMENT RECORD <FILE @ (PUT) ?D0S-ERR 
B/REC @ <> ABORT" fichier trop grand" 

CAPACITY 1+! ; 


: CLOSE-R ( -- ) \ ferme le fichier en accès direct 
9FILE-R <FILE DUP @ (CLOSE) OFF ; 


\ couche ultérieure: 
\ définition de champs dans un enregistrement 
: FIELD ( <nom-de-champ> position longueur -- ) 
CREATE , , 
DOES> ( -- adr 1 ) RECORD DROP OVER 2+ @ + SWAP @ ; 


\ exemple: 
\ (sans vouloir développer ici une base de donnée...) 
ANNUAIRE " 100 OPEN-R ANNUAIRE.DAT" $EXECUTE ; 
Q 20 FIELD NOM 
0 70 FIELD ADRESSE 
0 10 FIELD TELEPHONE 
INSCRIT ANNUAIRE RECORD BLANK 
CR ." nom : NOM 
CR ." adresse : " ADRESSE 


EXPECT 


\: 
\ 

\2 
\9 
\: 
\ 

\ EXPECT 


\ CR ." t61. : " TELEPHONE EXPECT 

\ APPEND CLOSE-R : 

\ : .TEL ANNUAIRE CAPACITY @ O DO I READ 

\ CR NOM TYPE TELEPHONE TYPE LOOP CLOSE-R ; 

\ etc... 

A. HR NORME NH ER EC 
\ 5) Interprétation/compilation de fichiers-blocks 

\ du F83 Laxen et Perry 


\ ASS ee SD HD ROCHER EH NH DDC CHER HI CLONE CICR 


VARIABLE BLK \ bloc en cours de compilation 
VARIABLE LOADING? 
\ booléen pour empêcher ré-entrance de LOAD 


: OPEN-BLK ( <filename.ext> -- ) 
\ ouvre un fichier-b1k F83-LP 
1024 OPEN-R BLK ON : 


: BLOCK ( n -- adr ) \ adresse du bloc n 
DUP BLK @ = IF DROP ELSE DUP READ BLK ! THEN RECORD DROP 


: ——> ( -- ) \ passe à l'écran F83-LP suivant 
BLK @ 1+ BLOCK DROP >IN OFF ; IMMEDIATE 


warning off 
:\C—) 
\ nouvelle définition valable dans les deux 
\ modes LP et TURBO 
>IN @ NEGATE LOADING? @ 
IF 64 ELSE C/L THEN MOD >IN +! 3; IMMEDIATE 
warning on 


: LOAD ( <filename.ext> n -- ) 

\ interprète le n-ième écran du fichier F83-LP 
LOADING? @ HANDLE @ O< AND ABORT" LOAD non ré-entrant" 
OPEN-BLK LOADING? ON BLOCK 1024 $EXECUTE 
LOADING? OFF CLOSE-R ; 


\ notez la syntaxe particulière de ce LOAD qui n'étant 
\ pas ré-entrant mixe Îles anciens mots OPEN et LOAD: 

\ 1 LOAD PROG.BLK compile l'écran 1 du fichier 

\ PROG.BLK du FB83-LP et éventuellement les suivants si 
\ s'y trouvent --> , 

\ Le même type de Syntaxe est adopté pour les mots 

\ permettant de visualiser le contenu de ce type de 

\ fichiers-blk: 


5 INDEX ( <filename.ext> -- ) 

\ Affiche les index (lignes 0) d'un fichier LP 
OPEN-BLK CAPACITY @ 0 

DO CR I 3 .R SPACE I BLOCK 64 -TRAILING TYPE 
STOP? ?LEAVE LOOP CLOSE-R ; 


: LISTING ( <filename.ext> n1 n2 -- ) 
\ liste écrans n1 à n2 d'un fichier LP 
2 ?ENOUGH OPEN-BLK 1+ SAP 
DO I BLOCK CR ." scr# " I . FALSE 
16 O DO DROP CR I 64 * OVER + 64 -TRAILING TYPE 
STOP? IF TRUE LEAVE ELSE FALSE THEN LOOP NIP 
?LEAVE CR LOOP CLOSE-R ; 


\ A eee ee ee ee EEE MN 


\ 6) Conversion de fichiers .BLK F83-LP 
\ en fichiers texte 
À ORNE NE NN HR MORE RME 


\ UNBLOCK fichier-b1k-source fichier-texte-cible 


: UNBLOCK ( <filenamel.ext> <filenameo[.ext]> —— ) 
OPEN-BLK ?OPEN FILENAME O (CREATE) ?DOS-ERR 
CAPACITY @ 0 
DO I BLOCK 16 0 

DO DUP I 64 * + 64 -TRAILING ?DUP 
IF PAD PLACE 
[ HEX ] OAOD 
[ DECIMAL ] PAD COUNT + ! (+ cr1f ) 
PAD COUNT 2+ TUCK DSEGMENT -ROT 5 PICK (PUT) 
?DOS-ERR <> ABORT" fichier trop long" 
ELSE DROP 
THEN 
LOOP DROP 
LOOP (CLOSE) CLOSE-R ; 


\ Ex :  UNBLOCK B:GENIUS.BLK A: \FORTH\GENIUS 
\ crée un nouveau fichier texte 

\ A: \FORTH\GENIUS. FTH contenant toutes les 

\ lignes non vides du fichier-b1k 

\ B:GENIUS. BLK . Ce nouveau fichier est INCLUDable 

\ par TURBO après éventuelle édition (suppression des 
\ THRU et --> notamment ). 

EOF \ FIN DU PROGRAMME 


RENDRE TURBO FORTH RESIDENT 


par Michel ZUPAN 


Pour : TURBO-Forth 83 Standard 
Adaptable: partiellement F83 Laxen et Perry MSDOS 


But: sortie de Turbo-Forth maintenu RESIDENT en 
mémoire, retour par interruption logicielle. 


REMARQUE IMPORTANTE: ce Programme est disponible dans le 
module M3 du package TURBO-Forth et en téléchargement sur 
3615 SAM*JEDI. 


LISTING DU PROGRAMME:  HALT,FTH 


ONLY FORTH ALSO HIDDEN ALSO DEFINITIONS HEX 

\ primitive de sortie avec programme laissé résident 

CODE (HALT) ( taille-résidente-en-paragraphes = ) 
DX POP 3100 # AX MOV 21 INT  NEXT END-CODE 


\ modification de ALLOC pour n'importe quel PSP 
LABEL RES-ALLOC ( taille -- dernier seg ) 


62 # AH MOV 21 INT  BX ES MÜV 
\ récupère PSP courant 
BX POP 4A # AH MOV 21 INT ]PUSH 


RES-ALLOC ' ALLOC ! 


50 CONSTANT RES-INT 
\ n° de l'interruption de "retour en forth" 


FORTH DEFINITIONS 


\ sortie de Forth laissé résident avec mot de relance 
: HALT ( <mot-de-relance> -- ) 
BL WORD COUNT 80 PLACE 
\ un mot ou rien dans le PSP de Turbo 
Ô RES-INT 4 * 2 + L@ DSEGMENT <> 
\ vecteur RES-INT déjà affecté ? 
IF 100 O RES-INT 4 * L! 
\ non : initialise Vecteur sur Forth 
DSEGMENT O0 RES-INT 4 * 2 + L! 
HEIGHT DUP ALLOC DROP 
\ limite taille minimale du forth 
CHALT) \ et sortie résidente 
ELSE BYE \ oui : simple BYE 
THEN ; 
CR 
.( commande HALT [<mot>] active pour sortie résidente ) 


\ création d'un micro-fichier - COM (19 octets) 
\ de relance du Forth 


:: filename 10 (search0) 
if only forth also decimal eof then : RESUME.COM 
\ cette commande interprètée stoppe ici 
\ la compilation de ce fichier si RESUME, COM 
\ existe déjà dans le répertoire courant. 


CR .( création d'un fichier RESUME. COM ) 

CR .( pour revenir au Forth ) 

warning off 

LABEL RESUME 

\ code du micro-programme de relance du forth 
O # AX MOV AX DS MOV 142 #) AX MOV 
AX AX OR  De> 

IF RES-INT INT 
\ exécute une interruption 50H 

THEN 4C00 # AX MOV 21 INT 

\ fin de fichier si pas de INT50 
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RESUME HERE SAVE RESUME . COM 


FORGET RESUME 
ONLY FORTH ALSO DEFINITIONS DECIMAL 


echo on warning on eof 


EOF \ FIN DU PROGRAMME 


Ce fichier est un exemple de la technique consistant à 
Jaisser un programme résident en mémoire, en l'occurence 
tout TURBO-FORTH ou l'une de ses applications. 

HALT est une espèce de BYE qui quitte TURBO avec retour au 
programme appelant (COMMAND. COM du DOS le plus souvent) 
mais laisse TURBO résident en mémoire. 


HALT peut être en outre suivi d'un mot qui sera exécuté 
dès la relance du Forth laissé en mémoire. Exemple HALT 
WORDS, HALT  WARM ou simplement HALT <cr> pour une relance 
boot. 


Le problème avec un programme résident est la façon de Île 
relancer. Le procédé retenu ici est le plus simple: TURBO 
sera relancé par une interruption logicielle. HALT 
initialise le vecteur de l'interruption 50h qui n'est 

pas utilisée en pratique courante (un programme externe 
peut éventuellement déjà l'utiliser: vérifiez alors que les 
adresses 0:140 à 0:143 de la table des interruptions sont à 
zéro. Au besoïn changez de numéro d'interruption). 


TURB0-FORTH peut être réactivé par n'importe quel programme 
lançant une INT50. 


Le petit fichier RESUME.COM exécute une simple interruption 
50h. C'est plus rapide que de recharger TURBO et de 
compiler à nouveau une application. Si Île vecteur 50h n'a 
pas été initialisé par un HALT, Je lancement de RESUME ne 
provoque rien. 


Quand on utilise un programme aussi complexe que 
TURBO-FORTH en mode résident 11 devient parfois difficile 
de s'y retrouver dans les segments et les zones 
mémoires allouées! Voici quelques explications: 


- une fois Île Forth relancé par la commande RESUME, sachez 
que votre programme en cours est RESUME.COM et non plus 
TURBO.COM. Ceci est important car le PSP 
(octets 0 à 100h Préfixe Segment de Programme) n'est plus 
dans le segment du Forth. I1 peut en découler certaines 
modifications notamment si on utilise l'intégrateur PROGRAM 
où si surviennent des erreurs dans des fichiers ouverts 
(le mot ALLCLOSE ferme tous Îles fichiers de  Forth, pas 
ceux d'un autre programme: utilisez la primitive handle 
(CLOSE) pour fermer des fichiers 
restés ouverts. ) 


- ce changement de PSP explique Île "batch" d'une nouvelle 
définition de ALLOC pour permettre à RESUME d'utiliser 
lui-aussi l'intégrateur TURBO. En effet 
Ja définition de ALLOC dans TURBO prend le segment courant 
comme segment du PSP. Cette nouvelle définition, qui 
utilise une fonction MSDOS disponible seulement à partir 
des versions 3.x, récupère le segment PSP du programme en 
cours. Vous n'en aurez pas besoin si vous ne devez pas 
utiliser l'intégrateur dans votre application. Dans ce cas 
les commandes d'intégration fourniront un message d'erreur 
mémoire insuffisante". 


_- une deuxième utilisation de HALT dans RESUME rendrait 
celui-ci résident ce qui bien-sûr n'a guère d'intérêt et 
doublerait l'espace réservé. Aussi dans ce cas, c'est un 
classique BYE qui est exécuté (Forth reste évidemment 
toujours résident et “resumable"). Un deuxième HALT 
servira seulement à modifier le mot de relance. 


On peut bien-sür imaginer obtenir une relance Forth plus 
ergonomique comme de placer un autre résident qui testerait 
l'appui d'une touche, sauverait tout l'environnement come 
l'écran, Je curseur et le programme en cours avant de 
relancer TURBO pour revenir par une fin d'interruption... 


Ce test du clavier par détournement d'une interruption 
existante telle celle de l'horloge pourrait d'ailleurs se 
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trouver dans l'application TURBO elle-même... 


COMMUNICATION 


LA LIAISON MINITEL - PC 


par Marc PETREMANN 


Si vous faites partie de ces veinards qui ont été équipés 
gracieusement par FRANCE TELECOM d'un minitel et qui ont 
la chance de disposer également d'un compatible PC, voici 
une rubrique très alléchante. 


Bien sûr, il n'est pas question de parler des messageries 
roses, mais plutôt de l'aspect utilitaire de Ja 
communication télématique et de l'environnement 
informatique nécessaire pour exploiter les données reçues. 


UNE PREMIERE SOLUTION: LA CARTE TELEMATIQUE 


De nombreux constructeurs 
d'extensions permettant de se connecter sur le réseau 
télématique. Les plus coûteuses travaillent en: 300/300 
bds, 1200/75 et 75/1200 bds (possibilité de serveur 
monovoie), 1200/1200 bds, et pour le haut de gamme 
également en 2400/2400 bds synchrone. 


proposent des cartes 


Pour avoir accès aux seuls services télématique, la carte 
de base (KORTEX, WINTEL, etc...) est à environ 900 Fr 
accompagnée d'un logiciel de gestion de communication. 


La plupart des cartes de base sont équipées de la 
numérotation automatique (impulsion décimale et fréquence 
vocale), détection de sonnerie et fonctionnent en 1200/75, 
75/1200 et accessoirement en 1200/1200 half ou full 
duplex. Les cartes mixtes 300/300 et 75/1200.. 1200/1200 
sont bien plus chères. 


UNE SECONDE SOLUTION: LE CABLE DE LIAISON 


Des schémas ont été publiés dans à peu près toutes les 
revues et des produits sont disponibles à des prix très 
variables. L'ensemble fonctionnel (câble+logiciel) est 
disponible généralement à partir de 250 Fr. 


Le câble relie la sortie péri-informatique du Minitel à la 
prise RS232C du compatible PC. 


Mais ce qui fait la valeur du produit, dans les deux cas, 
est la qualité du logiciel proposé. Pour notre part, nous 
avons essayé le câble LCE-COM entre un minitel (très vieux 
modèle, même pas retournable...) et un  PERSONNA 1600 de 
LOGABAX (compatible PC/XT). 


LE LOGICIEL 


Le logiciel gérant le câble LCE-COM est lancé en tapant 
MINITEL. Un premier programme initialise la liaison 
RS232C. Ensuite, un menu propose diverses options. 


Pour un premier essai, nous avons essayé les cours de la 
Bourse diffusés par la COTE DESFOSSES: 


3616 CD 


La prise de ligne peut être faite dès réception de la 
porteuse par appui sur CNX/FIN sur le MINITEL ou par appui 
de la touche F4. Si votre MINITEL est de type M10, le 
numéro peut être composé depuis le compatible. 


La première procédure expérimentée, la plus intéressante 
pour notre portefeuille, est la procédure CAPTURE de 
pages. Dès qu'elle est active, toute transaction est 
enregistrée en continu dans le fichier ouvert à cet effet. 
Notre fichier de capture de Ja COTE DESFOSSES a été nommé 
pour la circonstance CDEFOS. VTX. 


A partir de la prise en ligne, l'affichage du MINITEL 
apparaît en écho sur l'écran du compatible. Les divers 
tons de gris sont restitués assez fidèlement, à condition 
de disposer d'une carte CGA (ce qui est le cas des AMSTRAD 


PC 1512). Voici un exemple de l'impression de la page 
affichée sur l'écran du compatible de présentation du 
service boursier de la COTE DESFOSSES: 


PACA Ne der dt. 


El 


ote 
gsien écCongmMmiaus et +TIMAanCier 
L'Agence TELPRESSE 
" NFORMATIONS ......,,.. 4 ou IF 
mi LÔGES DE BOURSE ..,.,... 2 -— BO 
+ MOCE D'EMPLOI ,...,.,.. 3 —- MN 
“ MESSAGERIE ............ 4 -— ME 
+ BULLETINS D'ACTUALITÉ .5 -- BA 
SANT GOBAIN à tapes: GORE 
apez: 
d BANQUE  HÉDSSES > tapez: INDO 
am Tapez votre choix —# 
Ce). PR 


Une autre option très intéressante permet la conversion en 
fichier ASCII d'une page VIDEOTEX. Ainsi, 1a page ci-dessus 
devient après conversion: 


LOGICIEL OPTIONS-BOURSE : OPTB 
VOTRE PORTEFEUILLE SUR CD2 


\\ 


esfossés 


// 


ZA 
AK 


Quotidien économique et financier 
avec L'Agence TELPRESSE 


ote 


* INFORMATIONS 

* PAGES DE BOURSE ..... ..2 - 

* MODE D'EMPLOI 

* MESSAGERIE ..,.,...... .4 - ME 
BULLETINS D'ACTUALITE .5 - BA 
SOGENAL tapez: SOGENAL 
SAINT GOBAIN tapez: GOBAIN 
BANQUE INDOSUEZ tapez: INDO 
Tapez votre choix envoi 


BO 
MN 


Ce qui, par parenthèse, nous évite de taper 20 lignes nous 
même pour le présent article (non, mais...). 


Ce texte peut être consulté hors connexion. Pour aller plus 
loin dans notre exemple, nous avons poursuivi la 
consultation en choisissant l'option 2 - B0 


\ NOUVEAU DANS VOS PAGES 
IV DE COURS 
* UNE INFORMATION CONCER- 
NANT CETTE SOCIETE EXISTE 
DANS NS OÙ KR. 


\ A / 
\ 17 


Journée 


du 4 Mars 


Mise à jour 16h00. 


Bourses étrangères 
Mise à jour 9h30, 11h30, 13h15. 


* Marché options négociables 4 - MONA 


Nous avons ensuite sélectionné 
épargnera l'affichage des autres pages de présentation. La 
sélection suivante est MC (Marché Continu). C'est à partir 
de ce point que les véritables informations apparaissent. 
I1 y a onze pages. La capture en continu de ces pages a 


l'option BF. On vous 


pris moins de deux minutes. Puis nous nous sommes 
déconnectés. Maintenant, consultons nos valeurs: 
C ote D esfossés 1/11 
MC aussi en tapant les 3ères lettres 
Marché Continu 
(de 10h00 à 17h00) 
Cours du 04/03/88 
Premier Dernier Pré- 
connu VALEURS cédent 
238 238 
245,50 ALSTHOM 248,80 
842 AUXIL.D'ENTR.. 834 
646 AVIONS M.DAUS. 641 
295 BAIL EQUIPment 300 
875 BAIL INVESTIS. 885 
428 BANCAIRE CIE.. 428 
300 B.H.V......... 301 
T apez un mot clé Envoi ou suite . 
Ladite page se présente en réalité comme ceci sur votre 
écran MINITEL: 
Cote Desfossés 4/1* 


Marché Continu 
Cours du 04/03/88 


Péonnar | VALEURS 


ne) 


ES 
[re] 
CG) 


[ 
3 
i 


4, © 
Ë 


Ours 


nobLponvcaonoungp 


"FRANÈE 


Sa DE 


_ — 
_ = 


S-e9hnLOCLLOS 
au 
© 
_ nd 1! 
DONVUUNNEOUU 
2000 —CQUSJNINCC 
ASONSLLNeUnNnS 


ND = -1n 
RONDS 
rm 


| 


nn 


Si vous n'avez que peu de valeurs boursières 
le pointage sera rapide. Maïs le problème est tout autre 
si vous faites des statistiques au jour le Jour. Un 
fichier ASCII c'est bien joli, mais c'est peu aisé à 
exploiter, surtout s'il faut tout retaper sur un programme 
de gestion de base de données. 


à contrôler, 


Ce point délicat est le sujet de l'article qui suit. 
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dBASE IIT 


CONVERSION DE FICHIERS ASCII 
EN FICHIERS dBASE III 


par Marc PETREMANN 


C'est parce que j'ai eu des problèmes de ce genre à 
résoudre professionnellement que je me suis décidé à en 
faire un article. Il ne s'agissait pas, dans mon cas, des 
cours de la bourse, mais des codes nationaux des 
commutateurs téléphoniques à relever pour une application 
professionnelle. La quantité d'information à relever était 
si importante que des erreurs se seraient produites si 
j'avais dû recopier les codes à la main. 


Pour JEDI, j'illustrerai cette technique en reprenant les 
cours de la bourse tels qu'ils ont été relevés, ceci étant 
expliqué dans le précédent article. 


REMISE EN FORME DES DONNEES EN ASCIT 


La première opération consiste à remettre en forme Île 
contenu de notre fichier ASCIT: 


Marché Continu 
Cours du 04/03/88 


Premier Dernier Pré- 
connu VALEURS cédent 

a TELEMEC.ELECT. 5505 

161,50 162 THOMSON-CSF... 165 

342,20 346 TOTAL......... 345,50 

71,70 71,60 TOTAL certif.. 71,75 
1049 1079 T.R.T......... 1070 lignes 
405 405 U,.F.B......... 406 à 
799 784 U.I.C..,...... 800 supprimer 
535 532 U.I.Fsssuse 555 

500 500 U.I.S..,.... 502 

720 720 UNIBAIL....... 730 

182 185 U.C.B...... 185,10 

314,50 295 VIA BANQUE. 313 


T apez un mot clé Envoi ou * RETOUR 


I1 faut rendre jontives toutes les lignes contenant les 
cotes en supprimant la garniture. Cette opération est 


réalisée à l'aide d'un traitement de texte (WORDSTAR en 
mode N -non document- ou WORD ou WORDPERFECT) quelconque. 
Ce qui donne le fichier résultant: 

235 238 ALSPI.....,... 238 

248 245,50 ALSTHOM....... 248,80 

827 842 AUXIL.D'ENTR.. 834 

632 646 AVIONS M.DAUS. 641 
non tes etc... 

500 500 U,I.S,..,....... 502 

720 720 UNIBAIL....... 730 

182 185 UC. Besson e 185,10 

314,50 295 VIA BANQUE.... 313 


Soit environ 120 lignes de données. 


Maintenant, isolons une ligne pour comptage du nombre de 
caractères des différents champs de la structure à définir 
sous dBASE III: 


248 245,50 ALSTHOM....... 248,80 
314,50 295 VIA BANQUE... 313 
champ 1 champ2 champ 3 champ 4 
Taille: 
champ 1: 7 caractères 


champ 2: 7 caractères 
champ 3: 14 caractères 
champ 4: 7 caractères 
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Mais 11 ya les blancs entre champs. I1s font partie de 
l'enregistement. Soit on reformate Îles lignes. C'est 
possible et même facile avec un traitement de texte comme 
WORDPERFECT en définissant une macro: 


314, 50 295 VIA BANQUE.... 313 


devient après suppression des blancs parasites: 


314,50 295 VIA BANQUE.... 313 
XXXX , XX champl 
XXXX, XX champ2 
XXXXXXXXXXARKX champ3 


XXXX, XX _champ4 


Ou bien on définira un sous-fichier en dBASE prenant en 
compte les espaces parasites: 


STRUCTURE 


OUVERTURE N 
BLANC1 C 
CLOTURE NN 
BLANC2 C 
VALEUR C 
BLANC3 C 
VEILLE N 


soit en définissant un fichier transitoire sans prendre en 
compte les espaces parasites: 


OUVERTURE N 7 2 
CLOTURE N 7 2 
VALEUR C 14 

VEILLE N 7 2 


Dans les deux cas, nommons notre fichier CDEFOS.DBF, Puis 
pour charger Ve contenu du fichier ASCII dans notre 
fichier dBASE III, il suffit de taper: 


APPEND FROM <file.ext> TYPE SDF 


Le type SDF (pour System Data Format) précise à dBASE que 
vous reprenez des données provenant d'un fichier ASCII, 
jci <file.ext> étant remplacé par le nom du fichier ASCII 
remanié par le traitement de texte. Une fois vos données 
chargées, vérifiez par un petit coup de LIST que tout 
s'est bien passé. 


Mais vous êtes un passionné de bourse, et vous souhaitez 
conserver toutes Îles valeurs au jour e jour. Cette 
conservation ne peut se faire que dans un fichier 
contenant l'historique des évolutions des valeurs 
boursières. La structure de ce fichier doit prendre en 
compte d'autres données dont la date: 


STRUCTURE DU FICHIER: BOURSE. DBF 


DATE D 8 
OUVERTURE N 7 2 
CLOTURE N 7 2 
VALEUR C 14 
VEILLE N 7 2 


Que vous ayez une structure pour CDEFOS.DBF prenant en 
compte ou non Îles blancs parasites, vous utilisez 
maintenant BOURSE. DBF: 


USE BOURSE. DBF 
APPEND FROM CDEFOS. DBF 


puis initialisez la date vide par: 


STORE ‘04/03/88' TO JOUR 
REPLACE DATE WITH CTOD(JOUR) FOR DTOC()=" ! 
* teste si date contient 8 espaces 


Et voilà, votre base BOURSE.DBF con 


Nota: sur de longues séries de valeurs contigues, le 
traitement en transformée de Fourier peut être appliqué 
pour détecter des périodicité dans Ta fluctuation des 
valeurs. En temps normal, ces périodicité peuvent être 
masquées par le "bruit de fond". 11 serait intéressant 


qu'un adhérent motivé nous fasse un papier sur ce sujet qui 
ne manquera pas de nous passionner et, qui sait, nous 
rendre riche (5 oeufs frais au kilo). 


COURRIER: 

Jde quitte un instant mon micro pour vous remercier de 
m'avoir fait parvenir rapidement de manuel FORTH-83. 
J'imagine que vous êtes quelque peu débordés par Îles 
demandes de disquettes TURBO-Forth et la préparation de la 
version développeur, Si je puis vous être de 
quelqu'utilité, je pense à la rédaction d'un résumé 
thématique des commandes qui me semble un complément 
indispensable au répertoire alphabétique traditionnel, 
n'hésitez pas à me le demander.... Le premier contact avec 
TURBO-Forth est enthousiasmant. Super le positionnement du 
curseur sur l'erreur au rappel de l'éditeur lors d'une 
compilation. Barvo les appels de programmes externes 
quelqu'en soit l'origine. Et l'appel d'une application 
FORTH avec passage de paramètre, ou l'exécution d'un 
fichier de commandes FORTH. Tiens, un truc surprenant: 


depuis le DOS, 1a commande 
TURBO INCLUDE TEST.FTH 


avec en fin de TEST.FTH le mot COLD, boucle plusieurs fois 
sur la compilation (faites le test avec seulement COLD dans 
le fichier). Est-ce à dire que la compilation s'est ajoutée 
à la définition de COLD?! Mais le plus agréable est d'être 
débarrassé du passage majuscule/minuscules (FIG 79 APPLE 
II, LMI 83). 


Alain LAMBERT - 78140 VELIZY 


REPONSE: Le comportement de COLD est tout à fait normal. 
Lors d'un passage de paramètre depuis DOS, exemple TURBO 
WORDS, l'exécution de COLD depuis 1e clavier ou depuis un 
fichier, relance le mot BOOT, lequel est vectorisé sur 
HELLO. Or HELLO contient dans les premières lignes, le test 
de l'octet 128. A cette adresse figure la longueur de la 
chaîne passée en paramètre. Si cette longueur est non 
nulle, HELLO réexécute la chaîne à chaque BOOT, HELLO ou 
COLD. 


Concernant 1a documentation, TURBO-Forth dispose maintenant 
de son auto-documentation, ce qui peut faciliter la vie des 
débutants se mettant au FORTH. 


LE SECRETAIRE 


COURRIER: 

(concernant TURBO-Forth)... je suis très intéressé par 
votre version d'évaluation de TURBO-Forth. C'est une très 
bonne idée. Cependant, je rejoins un peu Mr JACCOMARD (JEDI 
n°40 p12) lorsqu'il écrit qu'il est dommage d'écrire son 
programme avec un traitement de texte externe à FORTH; mon 
idée serait plutôt d'intégrer un "vrai" traitement de 
texte sous FORTH, à quand WORDSTAR en Forth? 


Une autre idée consiste à mettre TURBO-Forth résident en 
mémoire vive. 


Enfin, dernière remarque: serait-il possible d'avoir sur 
disquette et pour les membres de T1l'ASSOCIATION, les 
programmes parus, Car il faut souvent les taper de nouveau 
et dès que cela dpasse une ou deux pages dans la revue, 
cela prend beaucoup de temps. 


Marc DURANTON - 94470 BOISSY ST LEGER 


REPONSE: Premièrement: avoir équipé TURBO-Forth d'un 
éditeur externe permettait d'alléger FORTH lui-même et de 
récupérer la place gagnée pour des routines plus utiles. 
L'éditeur dont est équipé TURBO-Forth reprend les 
principales commandes de HWORDSTAR (taille de EDIT.COM: 
56k). Si vous êtes un habitué de TURBO-Pascal, vous ne 
serez pas perdu. TURBO-Forth ne fait que prolonger la ligne 
des produits BORLAND, mais n'a aucun lien avec BORLAND, 
cette société n'ayant jamais envisagé de diffuser TURBO- 
Forth ou une quelconque version de ce langage. Pour en 
revenir à l'éditeur, le fait qu'il soit externe et 
“sélectable" en modifiant une variable alphanumérique, 
permet, si vous préférez utiliser un autre éditeur, de ne 


pas perdre vos habitudes. Pour a petite histoire, je 
programme également en dBASE III et je n'utilise JAMAIS 
l'éditeur intégré à dBASE pour écrire les programmes. 


Deuxièmement: mettre TURBO-Forth en 
Voir dans les pages précédentes. 


résident est fait. 


Troisièmement: fournir les Programmes en disquettes, c'est 
également fait. Si dans l'avenir les programmes ne seront 
pas tous disponibles  immédiatemment sur support 
magnétique, du moins essayerons-nous de les transmettre 
par le serveur SAM*JEDI en même temps que la parution de 
JEDI. Encore une fois, à l'attention de tous les Tlecteurs 
de JEDI, nous sommes très peu à programmer, trop peu même, 
alors qu'il y a des adhérents qui font certainement des 
choses très intéressantes. N'hésitez pas à valoriser JEDI 
par votre participation, même modeste. 


L'esprit de 1'ASSOCIATION JEDI est de transmettre le plus 
efficacement possible 1a connaissance des techniques de 
programmation dans les langages avancés. Si votre 
Connaissance évolue grâce à  JEDI, alors renvoyez 
l'ascenseur, que notre démarche ne soit pas à sens unique. 
JEDI est diffusé non par abonnement, mais par cotisation, 
Car vous tous êtes associés, donc tous rédacteurs 
potentiels. 


LE SECRETAIRE 


TIR SUR LE PIANISTE: 
Jedi, une revue "pro-PC et Compatibles" 


À réception du numéro de Janvier. C'est un plaisir 
toujours renouvelé que celui de recevoir JEDI, et je dois 


avouer que, cette fois, j'ai savouré avec un plaisir non 
dissimulé le dessin de couverture et sa légende. On ne 
sait qui applaudir le plus du dessinateur dont le trait 


est d'une férocité hors de paire, ou du légendeur et de 
son astuce. Je crois d'ailleurs avoir reconnu l'auteur! .. 


Ndir: pour le reste de la lettre, l'auteur a demandé à ce 
que sa prose soit censurée. J'ai pris sur moi de conserver 
ce début élogieux (merci pour le cirage... et pour CABU) 
et la fin de la lettre: 


Voilà ce que m'a inspiré la lecture de la dernière 
livraison... Et si j'ai pris mon pied à remuer sadiquement 
mon bâton dans la fourmillière, c'est que j'avais cru y 


percevoir quelque chose comme un ronronnement, et ji] 

fallait que je vérifie si je m'étais trompé ou non!... Des 
fourmis qui ronronnent!! Encore la Forthe!!! 

L'affreux jojo de service 

Bernard C. LAMBEY - 34070 MONTPELLIER 


REPONSE: si vous avez pris votre pied à remuer sadiquement 
votre bâton de pélerin dans la fourmilière, elle, par 
contre, est certainement masochiste. 


Si JEDI publie beaucoup concernant Îles CompPC, c'est parce 
que la majorité des articles reçus sont destinés à ce 
Système. Malgré mon appel au secours d'il y a six mois, je 
n'ai pas été submergé d'articles pour APPLE II, SPECTRUM, 
THOMSON T07-7/70-8-9-9+, AMSTRAD 464-664-6128-PCN, ATARI 
(un peu), AMIGA, MacINTOSH, et tout ce qui n'est pas 
équipé d'un 8086/88/286/386. 


Remarquez quand même, que de nombreux articles mentionnent 
et tête de chapitre le standard, les systèmes de 
destination et une appréciation d'adaptabilité éventuelle. 
Regardez l'article sur la virgule flottante écrit par 
ZUPAN, certaines définitions en code machine sont en 
commentaires, Ta définition équivalente figurant en F83. 


Enfin, et sur votre demande, et après concertation 
mutuelle, je retape votre nouvelle prose ci-après; 
LE SECRETAIRE 


à — 
HONTE À CEUX QUI ONT HONTE 


11 y a peu de temps, lors d'un entretien téléphonique avec 
notre secrétaire, au cours duquel trois cent quatre vingt 
sept idées furent évoquées, je reçus un coup de poing dans 
l'estomac, sous forme de cet articulet à écrire, sans 
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Mais il a tellement raison que je le 


aucun échappatoire!... 
fais avec ardeur. 


grossièrement, donné le sens de 
mission de vous adresser. 
le tout petit bout... 


Le titre vous a déja, 
l'admnonestation que j'ai reçu 


Mais prenons les choses par le petit, 
+ X%X À 


Onésime NIMPORTEKI, adhérent JEDI de longue date, attend sa 
revue avec une impatience sans cesse fgrandissante, et il a 
un certain mal à comprendre pourquoi elle n'arrive pas avec 
une régularité métronomique, et d'une, et aussi pourquoi 
elle ne fait pas cent pages au lieu de 20-25. 


Or il se troyve qu'Onésime voudrait utiliser le Turbo- 
Forth! De plus il est quelque peu las de se faire botter 
les fesses par tout son entourage informatique, qui tourne 
sur PCI I1 a donc décidé -tout arrive!...- d'abandonner son 
petit matériel made ‘in France, génial, si sil... mais 
tellement original que même ses concepteurs ne peuvent plus 
l'utiliser dans le contexte actuel!... 


on peut encore le vendre sous forme de charter, 
comme le France, mais Île TMA-9 à disquette-B0k-sans-DOS- 
identifiable ("réservé à l'Education Nationale qui 
constitue un marché captif pour des années"!), même les 
Msous-développés" ne le sont pas assez pour nous le 
reprendre!... 


Concorde, 


La mort dans l'âme donc, Onésime va se taïwaniser comme 
tout le monde, et va enfin se rebrancher sur la communauté 
informatique. Bonne occasion de se repencher sur le contenu 
de ses disquettes, car il va falloir les MS-DOSiser. Et i1 
redécouvre des petits trésors qu'il a oublié au fond des 
pistes, dans des secteurs poussiéreux! Et le voilà, tout 
joyeux, qui retrouve le plaisir de tel ou tel truc mis au 
pooint avec passion... et de se demander pourquoi il a 
cessé de l'utiliser, jusqu'à l'oublier, tel utilitaire fort 
astucieux qui, lors de sa mise au point, l'avait confirmé 
dans l'idée qu'un Nimporteki, ce n'est pas un Quiconque! 


Bref, si on le lui avait dit, jamais i1 n'aurait cru qu'il 
avait accumulé tellement de matériel. Et, de fait, avec les 


pet 


même gonflés jusqu'à 
être devenus originaux, et aussi les petits trucs perso sur 
lesquels il est passé, passé et repassé à chaque fois que 
leur utilisation lui mettait Île nez sur un petit point à 
peaufiner, avec tout cela il a une quantité de matériel 
étonnante!... 


QUI-DA!.. ET IL N'EST PAS LE SEUL DANS CE CAS-LA!... 


11 se trouve que des circonstances fortuites l'ont amené à 
prendre contact avec moi. Et 11 m'a raconté tout ça! Et 
quand je lui suggère d'en tirer quelques listings propres 
et de les envoyer à JEDI, il pouffe de rire, rose 
d'émotion, la main devant la bouche. 

- Mais, vous n'y songez pas! Ce n'est pas digne d'être 
publié, il faudrait que je les reprenne pour les optimiser, 
que j'y retravaille. Et puis ça m'intéresse, moi, mais ça 
n'intéressera pas Îles autres! 


- Quit Vous avez raison! Les autres sont des imbéciles 
qui... 

- Non, ce n'est pas ce que je veux dire, mais ce n'est pas 
assez bon. 


- Je vois! Les autres sont des puits de science et vous un 
minus pour lequel... 

_ Mais non! Vous m'énervez, à la fin! Je vous dit que ça 
ne les intéressera pas! 


- Pourquoi? 
- Mais parceque... parceque... 
A mon tour de rire! 
- Mon cher, quand vous aurez terminé votre crise de 


modestie, quand vous cesserez d'avoir honte de vous même et 
de ce que votre cervelle est capable de concevoir, vous 
pourrez peut-être considérer les choses sous l'angle 
suivant: 

1) si tout le monde faisait comme vous, Jedi n'existerait 
pas! 


2) qui sait si une petite contribution, publiée, ne sera 
pas le facteur déclenchant d'une réalisation grandiose? 
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3) et si quelque ami me signale telle ou telle 
amélioration à laquelle je n'ai pas pensé, au total, qui 
tirera profit de la publication? 


4) pour résumer, Lao-Tseu a raison, qui dit: "il y a plus 
dans deux têtes que dans une!" 


34) et Confucius n'a pas tort, non plus, qui énonce 
ironique: "la gloire ne retient que rarement le nom du 
soldat qui n'offre jamais sa poitrine à l'ennemil". 


Quant aux vingt-neuf autres raisons de publier vos petits 
sources que j'ai sautées, elles disaient la même chosde 
que Confucius, mais moins élégamment! 


Et si quelqu'un ose me répondre qu'il a peur de faire des 
fôtes d'ortaugraphe (Ndir: ah, bon, je croyais que ça 
s'écrivait HORTAUGRAFE...), nous serons plusieurs à nous 
rendre chez lui pour Tl'étriper dans les règles de l'art! 
(... à coups de GREVISSE..?) 


Avez-vous compris? Ai-je été assez clair? Est-ce vraiment 
la peine que j'insiste? Non?... 


Bon! Alors je persiste et signe: 
Honte! Ils privent Îles 
fréquenter!" 


“Honte à ceux qui ont 
autres du plaisir de Îles 


x X 
Ceci étant acquis, comment procéder? 


1) Vous avez un compatible? Vous adressez à 
disquette de texte ASCII. 
rédaction. 


la revue une 
Il sera remis en forme par la 


in France"? 
vous dira comment faire en 
Mais votre contribution est 
qui est, en fait, une superbe 


2) Vous êtes sous "Petite merveille made 
Téléphonez au secrétaire, il 
fonction de vos moyens. 
INDISPENSABLE À LA REVUE, 
auberge espagnole... 
Bernard C. LAMBEY 


FORTH 


RECOPIE D'ECRAN SUR JUPITER ACE 


par B. MOUROT 

Matériel: JUPITER ACE (pour nostalgiques...) 

Ci-joint un système de recopie d'écran sur JUPITER: 
O VARIABLE MEM 800 ALLOT 


: RAN 

8960 8192 

DO 
I C@ MEM I 8192 
- +C! 

LOOP 


: RAP 

INVIS CLS 736 0 
MEM I + C@ EMIT 

LOOP 


dBASE III/III+ 


STRUCTURE DES FICHIERS DE DONNEES dBASE 


par Marc PETREMANN 


J'avais dans l'idée de créer des routines en FORTH 
permettant d'accéder aux données contenues dans un fichier 
créé par dBASE III/111+. Mais comme je manque de temps pour 
les développer, je propose à l'ensemble des adhérents de se 
pencher sur ce problème et de nous faire parvenir leurs 
solutions dans les meilleurs délais. 


Cette proposition tient lieu de "Challenge". En gros, voici 
l'ébauche et le fil conducteur du projet. Au départ, je 
pensais simplement accéder aux données contenues dans un 
fichier dBASE III/III+(/IV?) pour les traiter. Mais 
entretemps, Michel ZUPAN a mis au point les routines 
d'accès direct à un fichier quelconque. Or, sachant que 
dBASE coûte très cher (vraiment très cher, 9000 Fr environ 
pour dBASE III+ réseau) et qu'il est incopiable, si on veut 
exploiter, voire simplement saisir des données sur un 
second micro, il faut acheter 2 dBASE. Une autre solution 
consiste à écrire un programme et à le "pseudo-compiler" 
par DBC et à le faire tourner depuis un DBRUN. Mais même 
DBRUN n'est pas donné. 


Donc, si des adhérents planchaiïient de concert avec moi (et 
d'autres), peut-être pourrions-nous mettre au point assez 
rapidement un "runtime" compatible dBASE écrit en TURBO- 
Forth. Pour une première approche, i1 s'agirait de lire et 
d'écrire dans un fichier dBASE. Pour ce faire, il faut en 
connaître la structure. 


Les enregistrements d'un fichier de données dBASE III PLUS 

sont précédées d'un en-tête, nommé structure du fichier: 
OCTET CONTENU EXPLICATION 

Identificateur d'un fichier dBASE III+ 
03H sans fichier MEMO (.DBT) 
83H avec fichier MEMO (.DBT) 


Date de la dernière mise à jour 
au format AA MM JJ en binaire. 


0 1 octet 


1-3 3 octets 


4-7 32 bits Nombre d'enregistrements dans le 
fichier de données. 
8-9 16 bits Longueur de la structure d'en-tête. 


10-11 16 bits Longueur de l'enregistrement. 

12-31 20 octets Octets réservés (version 1.00). 

32-n 32 octets Description d'un champ. 

n+1 1 octet  ODH comme caractère de fin de 
définition des champs. 


Les champs sont définis comme suit: 


0-0 11 octets Nom du champ en ASCII. Des zéros 
complètent les emplacements inoccupés. 
Type du champ en ASCII (C, N,L,D ou M). 
Adresse des données du champ, adresse 
positionnée en mémoire. 

16 1 octet Longueur du champ en binaire. 

17 1 octet Nombre de décimales en binaire. 

18-31 14 octets Octèts réservés. (version 1.00) 


11 1 octet 
12-15 32 bits 


Les enregistrements sont mémorisés séquentiellement à la 
suite de cet en-tête. Chaque enregistrement est précédé par 
un octet. Ce dernier contient 20H si l'enregistrement est 
disponible et Z2AH si l'enregistrement est repéré pour 
effacement. Les données des différents champs sont stockées 
sans aucun séparateur, ni caractère de fin 
d'enregistrement. Les différents types de données sont 
mémorisés en ASCII dans les formats suivants : 


Caractère Caractères ASCII 
Numér ique -.0123456789 
Logique 2TtFfetYyNn 


pour la version américaine, 
OoNn 

pour la version francaise (7? est 

utilisé si le champ n'est pas 

initialisé) 


Memo 


10 octets représentant un numéro de bloc 
du fichier (.DBT) 

8 octets au format AAAAMMJJ, Exemple: 
19861231 


Date 


En première ébauche, 1es caractéristiques syntaxiques du 
programme souhaité sont les suivantes: 


USE <fichier. DBF> 
analyse sa structure. 


ouvre Île fichier dBASE <fichier> et 


La structure en cours d'analyse crée des en-têtes dans le 
dictionnaire, rattachés au nom du fichier, soit par Île 
HANDLE du fichier concerné, soit par Te cfa du nom de 
fichier mis dans le dictionnaire. 


Chaque identificateur de champ sera défini dans Je 
dictionnaire FORTH et lors de son exécution réalisera les 
fonctions suivantes: 


- type C, dépose sur la pile l'adresse et la longueur de 
la chaîne ASCII pour traitement 

- type N, dépose la valeur numérique 32 bits et 
initialise DPL pour un éventuel traitement de la position 
du point décimal. 

- type L, dépose 0 ou -1 sur la pile. 

- type D, dépose une adresse et une longueur de chaîne 
contenant la date de l'enregistrement concerné. Cette date 
sera remaniée au format JJ/MM/AA, 

— type MEMO non traité. 


L'accès à un enregistrement du fichier courant sera 


exécuté par le mot GOTO. Exemple: 


3 GOTO pointe 
analysé par USE. 


le troisième enregistrement du fichier 


Version simple: on ne traite qu'un fichier à a fois. Par 
conséquent, Ta réexécution de USE 'oublie' la structure 
analysée par 1a précédente exécution de USE. 


Version complexe: on traite plusieurs fichiers. Plusieurs 
exécutions de USE analysent et hébergent plusieurs 
structures de fichiers. Prévoir une sécurité pour éviter 
l'analyse de la même structure deux fois. Prévoir Îe 
traitement des cas d'homonymie dans es noms de champs. 


Exemple de fichier dBASE: 


Stucture du fichier ABONNE. DBF 
NOM, C, 40 
ADRESSE, C, 40 
CODEPOST,C, 5 
COMMUNE, C, 25 
NOTEL,C,8 
MOISADH,N,2, 
ANNEADH,N, 2, 


0 
) 


Traitement par FORTH prévue: 


USE ABONNE. DBF 


devra analyser le fichier et créer les mots suivants dans 


le dictionnaire FORTH: 


NOM ADRESSE CODEPOST COMMUNE NOTEL MOISADH ANNEADH 


puis 1 GOTO pointe sur le premier enregistrement; 


NOM TYPE devra afficher 
premier enregistrement. 

MOISADH D. devra afficher le contenu du champ numérique 
MOISADH du premier enregistrement. 


le contenu du champ NOM du 


Pour ceux qui connaissent bien dBASE III/III+, nous leur 
laissons toute liberté pour adapter les commandes dBASE 
existantes au format FORTH. 
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FORTH 
ESSAIS DE GRAPHIQUES SUR CARTE HERCULES 


par CLAUDE PILVERDIER 


pour: TURBO-Forth 
F83 Laxen et Perry 
nécessite la présence d'une carte graphique HERCULES 


Téléchargement: 3615 SAM*JEDI 


NB: Ce programme sera prochainement disponible dans îe 
module de complément M4 de TURBO-Forth. 
LISTING: HERCULE. FTH 
empty only forth forth definitions 
\ Adressage long 
ASSEMBLER DEFINITIONS FORTH ALSO DEFINITIONS HEX 
b000 constant page0 bB00 constant pagel 
3b4 constant indx 3bB constant cntrl 
\ Caracteristiques carte HERCULES 
decimal 
\ DEFINITIONS MODE GRAPHIQUE 
\ Etablissement des tables de controle 
\ du 6845 (controleur d' ecran). 
variable gtable 10 allot variable ttable 10 allot 
: ovl+ over ct 1+; hex 
ttable 
61 ovt+ 50 ovl+ 52 ovl+ Of ovl+ 
19 ovl+ 06 ovl+ 19 ovi+ 19 ovl+ 
02 ovt+ Od ovl+ Ob ovl+ Oc swap c! 
gtable 
35 ovl+ 2d ovi+ 2e ov!+ 07 ovl+ 
5b ovl+ 02 ovl+ 57 ovi+ 57 ovl+ 
02 ovl+ 03 ovl+ 00 ov!+ 00 swap c! 
: af.table 
Oc O0 do dup i + c@ 4 u.r loop drop ; 
3bf constant config \ port de configuration 
: setmd (s tabl,code,gr/txt —-) 
Oc 0 do dup i dup indx pc! + c@ indx 1+ pcl loop drop ; 


\ le 6845 est initialise en texte ou graphique 

: gmode 3 config pc! 80 entr pc! gtable setmd 

Ba cntr1 pc! ; \ mode graphique 

: tmode 0 config pc! 0 cntrl pc! 

ttable setmd 8 cntrl pc! ; \ mode texte 

: sono beep key 1b = if tmode abort" commande" then : 

: so-t sono tmode ; 
code toggle bx pop ax pop ax O0 [bx] xor next end-code 
\ cette commande permet de voir le graphique et d'inter- 
\ rompre l'execution en cours par ESC 


\ Routines graphiques en assembleur 

hex 2cf constant xmax 15b constant ymax 

code fill.txt (s page, car -- page ) \ remplit la page 
ax pop bx pop bx push es push bx es mov \ avec car 
4000 # cx mov di di xor cld 

rep ax stos es pop next end-code 

: g-dark pagel 0 8000 0 1fi11 ; \ vide 1! ecran graph. 
variable car.gr variable all.eff 


\ caracteres de remplissage et controle all1/effacement 
variable erreur variable erreurl variable erreur2 
variable xx variable yy 

variable deltax variable deltay 

variable x10 variable x20 variable y10 variable y20 
variable x 1 variable y 1 variable x 2 variable y_2 

variable vdx variable vdy variable pente E 


\ Calcui de l' adresse du point X,Y en ram 
label calc.adr \ dx=X,di=Y 
dx push di push 3 # di and di di add 

Oc # cl mov di el shl \ (y mod 4 }*2000H 


ax pop 2 # cl mov ax cl shr \ int(y/4) 
ax ax add \y/4a* 2 
ax dx mov ax ax add dx ax add \ y/4a * 6 
ax dx mov ax ax add dx ax add \ y/4 * 18 


ax dx mov ax ax add ax ax add ax dx add \ int(y/4)*90 


dx di add ax pop 4 # cl mov ax cl shr 
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ax di add ax di add ret \ int(x/16) 


\ retour : di=adr 

label retour cs ax mov ax ds mov ax es mov next end-code 
\ le mot ci-dessous allume ou efface 
\ le point choisi suivant ALL.EFF 

code pos.point 

(s page,y,x -- page ) 

dx pop di pop es pop es push dx push 
calc.adr #) call cx pop Of # cx and 80 # ax mov 

ax cl ror all.eff #) dx mov dx dx and 

O= if ax es: 0 [di] or else ax not ax es: 0 [di] and then 
retour #) jmp end-code 


\ Les traits horizontaux sont traites à part 

\ car on peut souvent remplir des octets entiers 
labe? fin-th bp pop si pop bx pop 
retour #) jmp  end-code 


code tr-hor (s page,y,x2,x1-- page) 

dx pop ax pop di pop es pop es push 

\ dx=x1,ax=x?,di=y,ds=page 

bx push si push bp push ax dx cmp 

> if ax dx xchg then \ trace de gauche a droite 

ax push dx push 4 # cx mov cx push 

ax cl shr ex pop dx ci shr \ division par 16 

ax bp mov dx bp sub dx pop dx push calc.adr #) call 

di si mov bp si add bp si add bp dec car.gr #) bx mov 

cx pop Of # cx and 

es push ds pop -1 # ax mov ax cl shr ah al xchg bx ax and 
ex pop Of # cx and Of # cx sub ex neg 

-1 # dx mov dx cl sh1 d1 dh xchg bx dx and si di cmp 

= if dx ax and ax O [di] xor fin-th #) jmp then 

ax 0 [di] xor di inc di ine bp dec bp ex mov cid bx ax 
mov 

begin cx ex or 0>= while 

ax 0 [di] xor di inc di inc cx dec repeat 

dx O [di] xor fin-th #) jmp end-code 


\ trait vertical 
assembler label a11-tv 
begin di push dx push ax push \ allume 
calc.adr #) call 
ax pop ax es: 0 [di] or 
dx pop di pop di inc 
bx dec bx bx and O>= while 
repeat 
ret end-code 
assembler label etin-tv 
begin di push dx push ax push 
calc.adr #) call 
ax pop ax es: O0 [di] and 
dx pop di pop di inc 
bx dec bx bx and 0>= while 
repeat 
end-code 


\ eteint 


ret 


code tr-vt (s page,x,y2,y1 -- page) 
di pop cx pop dx pop es pop es push 
bx push si push bp push di ex sub 
cx bx mov dx ex mov OF # cx and 
80 # ax mov ax cl ror \ prep. car. graph 
dx push all.eff #) dx mov \ allume ou eff. ? 
dx dx and 0= if dx pop a11-tv #) call 

else dx pop ax not etin-tv #) call 

then fin-th #) jmp end-code 


\ registres FORTH 
\ longueur trait 


\ Trace de droites (algorithme de BRESENHAM 
\ BYTE de septembre 1987 ) 
\ Traitement des coordonnees 
\ Récupère des coordonnees en réserve. 
: x _coord x 2 @ x 1 @ - dup deltax ! dup abs / vdx ! 
y_2 @ y_1 @ - dup deltay ! dup abs / vdy ! ; 
: xchg_xy x 1@y 16x71! y11! x 2 @y2@x2!y2! 


vax @ vdy & vx ! vdy !  deltax @ deltay @ deltax ! 
deïtay ! : 


:nre (s x1,y1,x2,y2-—— ) 

y207! x20 ! y10 ! x10 ! ; \ range les coord. fournies 
: rest c x10 @ y10 @ x20 @ y20 @ ; \ les restitue 

: rec.cy2!x2!1y1!1x1!; \ les prépar à usage 


: xfer_c rest c rec.c ; \ transfert 


: prise-c nr © xfer c ; 


: aff-c cr .T x1=" x_1 2." y" y 1 2." x2=" x 2 7." 
y2=" y 27 

." dx=" deltax ? ." dy=" deltay ? ." err=" erreur ? ." 
err1=" erreurl ? 

." err2=" erreur? ? cr : 


\ L' algorithme n' est valable que pour pente <= 1 
: ver coord deltay @ abs deltax @ abs > dup pente ! 
if xchg_xy then ; 
defer xfer.pt \ pour utilisation de debug 


\ commandes de trace où d' effacement 
: trace.g all.eff off ['] pos.point is xfer.pt ; 
: sup.g all.eff on ['] pos.point is xfer.pt ; 


\ segment droit quelconque 


code tr-ob (s page -- page ) 
ax pop ax push bx push si push bp push ds push 
\ sauvegarde registres FORTH 
ax es mov x_1 #) dx mov y_1 #) si mov 
\ prise des coord. debut 
vdy #) bp mov pente #) bx mov 
\ prise de param. auxiliaires 
deltay #) ax mov ax ax and O< if ax neg then 
ax ax add ax erreur #) mov ax erreur1 #) mov 
\ prepar corrections 
ax erreur? #) mov deltax #) ax mov ax ax and 0< 
if ax neg then 
ax deltax #) mov ax ax add ax erreur #) sub 
ax erreur1 #) sub 
erreur #) ax mov deltax #) cx mov 
\ boucle, tout est pret, on y va 
begin ax push cx push dx push si di mov 
0 # bx cmp < if dx di xchg then dx cx mov cx push 
calc.adr #) call cx pop Of # cx and 80 # ax mov 
ax cl ror all.eff #) dx mov dx dx and 
0= if ax es: 0 [di] or 
else ax not ax es: 0 [di] and then 
dx pop ex pop ax pop 0 # ax comp > \ #4 
if erreur #) ax add bp si add 
else erreur? #) ax add then 
vdx #) dx add ex dec cx cx and O= 
until dx x_1 #) mov si y_1 #) mov 
“es pop bp pop si pop bx pop next 
end-code 


\ Selection du type de trait a tracer 
: draw (s page, x1,y1,x2,y2 -- page, x?, y2) 
nr_c xfer_c x coord deltax @ deltay @ or 
if 0 case 
deltax @ of x 1 @ y 2 @ y 1 @ tr-vt endof 
deltay @ of y_ 1 @ x 2 @ x 1 @ tr-hor endof 
endcase 
ver _coord tr-ob then x20 @ y20 @ ; decimal 
\ Essai des differents traits 
decimal trace.g 


: fagot pagel g-dark 

720 O0 do i 00 xmax i - ymax draw 2drop 20 +1o0p 
13 333 do 00 i xmax ymax i - draw 2drop 

-20 +10op drop ; 

\ trace d'un rectangle 

: carre-s (s x1,y1,x2,y2 -- ) 

\ coordonnées d' une diagonale 

nr_c xfer c 

y_1 @ x 3 @ x_1 @ tr-hor y 2 @ x _2 @ x_1 @ tr-hor 
xX1@y2@y1@ tr-vt x 2@ y_2 @ y 1 @ tr-vt 
drop ; 7 


variable decb 
\ tracé de triangle plein 
: esh0 (s page,ydeb -- ) dup >r ymax 2/ swap do 
i dup decb @ + xmax over - 
2dup > if swap then tr-hor \ else 2drop drop then 
loop r> ymax swap - ymax 2/ do 
i dup decb @ + xmax over - 
2dup > if swap then tr-hor \ else 2drop drop then 
loop ; 


\ dessin anime 
t hh (s -- ) decb off pagel ymax 2/ 0 
do g-dark i esh0O 1 decb +! 

Stop? if leave then 1oop drop 


\ essais de traits 
hex variable rect 40 allot rect 40 erase decima] 
: rempl.rect 0 do rect i 2* +1! 1oop ; 
: lit.cote 4 * 2 0 
do dup rect i 2* + + @ swap 1oop drop ; 


010 100 010 700 250 700 300 650 300 030 
250 100 010 100 200 100 200 700 200 650 

20 rempl.rect 

: polygone trace.g pagel gmode g-dark 0 lit.cote 


10 1 do i lit.cote draw 

loop so-t 2drop drop :; 
\ Remplissage 
base @ hex 
variable adr variable octet 

code adr.point (s page,y,x -- page ) 
dx pop di pop ds pop ds push dx push 
calc.adr #) call cx pop 

Of # ex and 8000 # ax mov ax cl shr ah al xchg 
di push ax push retour #) imp end-code 
base ! 
\ dessin avec fleches (pavé numérique ) 
variable touche 
: depl-cg 

case \ déplacement du curseur 


48 of -1 all.eff ctoggle endof 

49 of -1 x_1 +! 1 y 1 +! endof \ graphique 
50 of 1 y 1 +! endof 

ST of 1x 1+! 1 y 1 +! endof 

52 of -1 x 1 +! S endof 

53 of 360 x 1 ! 174 y 1 ! endof 

54 of 1 xT +! à endof 

55 of -1 x_1 +! -1 y 1 +! endof 

56 of -1 y_1 +! endof 

57 of 1x 1 +! -1 y 1 +! endof endcase 


ÿ_1 @ O max ymax min 
x_1 @ O max xmax min ; 
: dessine begin key dup 27 <> while 
depl-cg pos.point repeat drop ; 


car.gr on 
\ cercle et ellipses complets 
variable xctr variable yctr variable ray 
variable excent 666 excent ! 
: exctr dup O<> if excent @ 1000 */ then ; 
defer x.pt 
: Gept) (s page, y,x,y1,x1-- page, y1,x1) 
2swap >r >r xfer.pt r> r> ; 
! (x.pt) is x.pt 
: (x.b1) 2swap >r >r dup 15 + swap tr-hor r> r> ; 
: cerc.coord (s x,y,r--) ray ! yetr ! xctr ! : 
: cerc.0 (s X,Y-- ) 
2dup exctr yctr @ + swap xctr @ + 
2dup exctr negate yctr @ + swap xctr @ + 
2dup exctr negate yctr @ + Swap negate xctr @ + 
2dup exctr yctr @ + swap negate xctr @ + 
: cerc.l cerc.0 swap cerc.0 swap ; 
\ Cercle complet 
: cerc.?2 (s --) cerc.coord 
0 ray @ 3 over 2* - erreur ! begin 
2dup < while cerc.1 erreur @ 0> 
if 2dup - 4 * 10 + erreur +! 1- 
else over 4 * 6 + erreur +! then 
swap 1+ swap repeat ?2drop ; 
i cer.prep swap 2swap rot ; 
: rond pagel cer.prep cerc.2 drop ; 
\ Essais cercle 
: cercle (s page,x,y,r--page) 
dup >r cerc.coord 3 r> tuck 
2% - >r O begin 2dup >= while \ page, y,x 
over exctr yctr @ + dup >r 
over xctr @ + x. pt 
r> over xctr @ swap - dup >r x.pt 
over exctr yctr @ swap - r> 
over >r x.pt 
dup xctr @ + r> swap x.pt swap 
over exctr yctr @ + dup >r over xctr @ + 
x.pt r> over xctr @ swap - dup >r x.pt 
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x. pt 
x.pt 
x. pt 
X.pt ; 
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k 


over exctr yctr @ swap - r> over >r x.pt 

dup xctr @ + r> Swap x.pt swap 

r@ O> if 2dup swap -— 4 # 10 + r> + >r swap 1- swap 
else dup 4* 6 +r>+>r then 1+ 


repeat r> 2drop drop : 


\ Essais cercle 
: sg (sn--n) 
dup >r 2/ begin r@ over / 2dup - abs 1 > while 
+ 2/ repeat nip r> drop : 


defer tr-hz 

" tr-hor is tr-hz 

: c.blan (s page,xc,yCir -— page) dup exctr ray ! -rot 
vetr ! xctr ! exctr 0 

do ray @ dup * i dup * - sar exctr vdx ! 
vetr @ i + xctr @ vax @ 2dup + -rot - tr-hz 
vetr @ i - xctr @ vdx @ 2dup + -rot - tr-hz 
loop ; 

\ essais divers 

decimal variable tbl-sin 182 allot 
tb1-sin 182 erase 

: charge-table (s adr, nb -- ) 

2%  bounds swap do i ! -2 +100p ; 

0 175 349 523 698 872 1045 1219 1392 1564 
1736 1908 2079 2250 2419 2588 2756 2924 3090 3256 
9420 3584 3746 3907 4067 4226 4384 4540 4695 4848 
5000 5150 5299 5446 5592 5736 5878 6018 6157 6293 
6428 6561 6691 6820 6947 7071 7193 7314 7431 7547 
3660 7771 7880 7986 8090 8192 8290 8387 8480 8572 
8660 8746 8829 8910 8988 9063 9135 9205 9272 9336 
9397 9455 9511 9563 9613 9659 9703 9744 9781 9816 
0848 9877 9903 9925 9945 9962 9976 9986 9994 9998 10000 


tbl-sin 90 charge-table 
: lit-table (s adr,n -- n )2*+€@; 
: sin (s angle -- n ) 360 mod 
90 /mod tuck 1 and if 90 swap - then 
tb1-sin swap lit-table 
swap 2 3 between if negate then 10000 */ ; 
: cos (s angle -- n ) 90 + sin : 
200 ray ! defer trait 
: (trait) >r >r >r >r rot r> r> r> r> draw 2drop -rot : 
" (trait) is trait 
variable pas 
: ellipse (s xc, yC ,af,ad,pas,r,exc--) trace.g 
excent ! ray ! pas ! tuck >r >r dup 
2over ?swap ray @ exctr swap sin rot + -rot 
ray @ swap cos + swap 2swap r> pas @ + r> pas @ + 
do over ray @ i cos + over ray @ exctr i sin + 
Pswap >r >r draw r> r> 
pas @ +1oop 2drop 2drop : 
decimal 
\ gmode g-dark pagel 360 174 145 45 10 200 500 ellipse 
\ 360 174 370 0 10 150 666 ellipse 
\ 360 174 370 O 20 150 333 ellipse so-t drop 


: soleil (s x0,y0,r --- ) ray ! 
180 O do 2dup swap ray @ i cos 
2dup negate + -rot + rot 
ray @ i sin exctr 2dup 
negate + -rot + \ xD y0 x1 x2 y1 ye 
rot swap trait 10 +1oop drop 2drop : 


\ x0 y0 x1 x2 y0 


; soleil4 pagel dup 360 174 200 soleil 
dup 100 174 100 exctr - 100 soleil 
dup 620 174 100 exctr - 100 soleil 
dup 620 174 100 exctr + 100 soleil 
100 174 100 exctr + 100 soleil ; 
: soleils 750 100 do pagel 0 32767 all.eff @ 
1fi11 i excent ! soleil4 130 +10op ; 


eof \ <-- EOF à supprimer pour chargement de hercula 
include hercula 
eof 


Ce programme graphique est encore sommaire, mais il permet 
de faire des graphiques sur une machine équipée d'une carte 
Hercules. Il est composé de deux modules: hercule et 
hercula. 

les définitions de base du 


Hercule contient système 


graphique: 
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CMODE fait basculer la machine en mode graphique, car la 
carte Hercules ne supporte pas simultanément les modes 
texte et graphique. 


TMODE fait l'inverse. 


Le mode graphique peut utiliser 2 pages, de 8 Ko chacune, 
commençant aux adresses B000:0 et B800:0, elles sont 
désignées par Pagel et Page?2; 1a première est partagée 
avec le mode texte, ce qui fait que chacun de ces modes 
écrase la mémoire écran de l'autre. C'est pourquoi seule 
la pagel est utilisée ici. 


G-DARK efface l'écran graphique (comme beaucoup d'autres 
mots graphiques, il n'a d'effet que sous GMODE, bien que 
son exécution se fasse sans encombre en mode texte; c'est 
d'ailleurs un moyen de suivre Île déroulement d'un mot 
graphique avec DEBUG: Île lancer sans passer en mode 
graphique. 


POS. POINT allume ou éteint un point en fonction de la 
valeur de ALL.EFF. 


TR-0BL trace un segment de droite quelconque. 

TR-HOR trace un segment horizontal, avec un gain de 
vitesse appréciable, allume et efface alternativement 
chaque point. ù 


TR-VRT trace un segment vertical. 


Ces trois commandes laissent sur la pile, outre le segment 


de page, les coordonnées des deux derniers points, celà 
facilite certaines opérations, comme le tracé de 
polygones. 


Aucune de ces fonctions ne contrôle la validité des 
données qui lui sont fournies, c'est laissé à l'autorité 
de l'utilisateur. Des dépassements de valeurs, surtout en 
négatif, peuvent entraîner des plantages variés, mais 
CTL-ALT-DEL ou RESET sont bien connus des utilsateurs de 
FORTH et de l'assembleur. . 
DRAW trace un trait quelconque, 
entre les trois précedents, 


en faisant le choix 


dont 1' 
la valeur 666 


CERCLX trace un cercle ou une ellipse complet, 
excentricité se trouve dans  EXCENT, 
correspondant sensiblement à un cercle. 


ELLIPSE trace un arc de même espèce. 

C.BL trace un cercle plein, mais l'excentricité n'en est 
pas contrôlable, son avantage est une plus grande 
rapidité. 

POLYGONE trace une suite de segments de droite. 


ADR.POINT laisse sur la pile l' adresse du 
coordonnées X,Y, à toutes fins utiles. 


point de 


Le fichier HERCULA.FTH ne contient aucune définition, mais 
ne sert qu' à faire une petite démonstration de quelques 
figures graphiques. 


LISTING: HERCULA.FTH 


\ commandes graphiques 

dark 

10 12 at 

.( AU BIP SONORE VOUS POUVEZ ARRETER) 
.( LE PROGRAMME PAR <ESC>) 

10 14 AT 


.( SINON UNE TOUCHE EN FERA CONTINUER L' EXECUTION. ) SONO 


trace.g gmode g-dark 

pagel 360 174 360 O0 10 200 200 ellipse drop sono g-dark 
fagot 666 excent ! 

360 174 165 rond 


trace.g 
pagel 360 170 200 cercle 
car.gr on 400 excent ! 


360 170 052 cercle 

360 170 150 c.blan sup.g 
666 excent ! 

360 170 60 c.blan 

\ sono tmode .s cr .( fin des cercles) cr sono gmode 
trace.g decimal 

-1 car.gr ! 666 excent ! 

110 165 225 exctr - 610 165 225 exctr + carre-s 

sono g-dark 

soleils 

sup.g soleils sono \ g-dark 
trace.g soleil4 sono hh 
polygone so-t 

\ dessin ‘a main levée’ 


Améliorez votre 
PCW 8256/8512 : 


Locoscript 2 actuellement 
fourni sur le PCW 9512 


est également disponible pour 


le 8256 et le 8512. 


Locoscript 2 (disquette + manuel 
300 pages) ne coûte que 350 F. : 
Locomail 446 F. Le kit Locoscript 


+ Locomail : 695 F. 


Prochainement sortie des disquettes 
utilitaires : 

Jeu de claviers étrangers 

Utilitaire de configuration 
d'imprimante. 

Locospell : dictionnaire français 
correcteur d'orthographe 

Pour tous renseignements : 

Appelez LOISITECH 

(1) 48 59 12 57 


LOCOMAIL, le complément de LOCO 2, 
un programme de mailing puissant 
et très simple d'emploi. 


LOCOSCRIPT 2 (disquette + manuel)... 350 F TTC 
LOCOMAIL (disquette + manuel) .....,.., 445 F TTC 
LOCOSCRIPT + LOCOMAIL ,,......... 695 F TTC 


KIT EXTENSION MEMOIRE (indispensable 
pour Utiliser les possibilités du 8256) 
DEUXIEME LECTEUR 720 Ko (pour 
pouvoir travailler sur des fichiers importants) 1660 F TTC 
INTERFACE SERIE/PARALLELE (pour sortir 

vers une imprimante externe) ...,,...,.. 690 F TTC 


dark 
10 10 at 
+( Maintenant vous pouvez faire du dessin à ‘main levée" 


10 12 at 
.( les chifres servant de flèches, ) 
.( 0 bascule tracé/effacement ) 
10 14 at 
.( 5 ramène le curseur au milieu de l' écran ) 
10 16 at .( <ESC> arrêtera l' exercice. ) cr .s sono 
trace.g pagel gmode g-dark 360 XT!117%4 y11! 
.s dessine drop so-t dark E 


dl 


na 
D. pe 


LOCOSCRIPT ? 


LocoScript 2 de 
LOCOMOTIVE SYSTEMS | 


LOCOSCRIPT 2 vous offre en plus : 
- des mouvements plus rapides à 
l'intérieur d’un document 
- un accès direct à n'importe quelle 
page 
- Sauvegarde et continue à la même 
position 
- possibilité de choisir votre imprimante 
(marguerite ou matricielle) 
- impression de haute qualité avec la 
marguerite 
- Nouveaux caractères (y compris le 
:Cyrillique et le Grec) 
- les symboles scientifiques 
‘- Utilisation d'accents avec toutes les 
lettres 
- impressions multiples 
- Copies, formatage des disquettes 
directement sous locoscript 
- fonctions ‘recherche et remplacement 
plus rapides et puissantes 
- Avec Loscoscript 2 vous pourrez lire 
‘Vos anciens documents faits sous 
Locoscript 1 | 


LOISITECH Cane Conerdel Terminal 93 


93106 MONTREUIL Cédex 
TEL. (1) 48 59 12 57 


TARIFS ADHÉRENTS JED)j : 


10 % sur 10(CoSCRIPT 
—_S Vo sur tous leyicrels cl su N5SDoS 
- 8 Ve sur FMSTAD CP/M au MSDos 


Sur sim ple 


présentafon de cotte 
paae de publicité. 
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PROGRAMMER SOUS GEM 
EN VOLKSFORTH-83 
SUR ATARI ST 


par Daniel FLIPO 


L'objet de DEMOGEM est de présenter une application sous GEM 

égite en VOLKSFORTH-83 pour ATARI ST, avec menu déroulant, 
bottes de dialogues et d'alerte, et deux fenêtres : les vrais 
problèmes de reconstruction d'écran apparaissent dès qu'il y a 
plusieurs fenêtres, et deux suffisent pour exposer les méthodes à 
mettre en OOUME. 


| GENERALITES SUR LE GEM 


Le GEM se compose de deux parties : l'AES et le VDI. 

L'AES gère les menus, fenêtres, bottes de dialogue, d'alerte, tandis 
que le VDI gère tout ce qui est dessin. Le VOLKSFORTH-83 (VF83 
en abrégé) donne accès à toutes les fonctions GEM, et les noms 
utilisés sont à peu de choses près œux du C. 


Il est indispensable de disposer d'un ouvrage décrivant les 
fonctions du GEM (soit [1] soit [2]) et de faire imprimer les fichiers 


du dossier GEM de VF83 pour faire la correspondance entre les 


noms en C et les noms VF83. 


il vous faudra également un programme de construction de 
ressources pour créer les menus, et les boftes de dialogue, mais 
pas les fenêtres. Vous avez le choix entre K-RESSOURCES (qui ne 
fonctionne malheureusement pas avec les nouvelles ROM) RCS 2 
de D.R., ou MRCP inclus dans le MEGAMAX C. Les labels des 
objets créés devront être convertis en VFB3, par exemple : 
#define MENUO devient en VF83 0 >label :menu 
On a l'habitude en VF83 de faire précéder les noms des constantes 
GEM de :, pour mieux les repérer, mais œ n'est pas une obligation. 
Les constantes ainsi définies sont regroupées dans le fichier 
DEMO_H.SCR, non reproduit ici. 


Toutes les initialisations fastidieuses du GEM sont assurées par le 
mot Forth GRINIT qu'il est indispensable d'exécuter au début de 
toute application GEM. De même on sort (proprement 1) du GEM 
par le mot GREXIT. Après un GREXIT penser à faire un nouveau 
GRINIT avant d'appeler l'éditeur de VF83 (sous GEM !).. 


{| COMMENT AIRES SUR LE LISTING DEMOGEM.SCR 


1,4 ECRANS 1 à 3: 

On compile les mots nécessaires à DEMOGEM. Les seuls fichiers 
appelés non inclus dans le VF83 sont : 

-SQRT.SCR pour la définition du mot DSQRT ( d -- u ) qui 
retourne le plus grand 16 bits non-signé u dont le carré est inférieur 
ou égal à d (32bits signé ou non) Voir JEDI Nr 27, 32 et 40 pour 
les définitions. 

-CASE_OF.SCR où est définie la structure de contrôle CASE . 
OF. ENDOF … ENDCASE, également décrite à plusieurs reprises 
dans JEDI. 

-DEMO_H.SCR qui contient les constantes du fichier de 
reSSOUrCES. 
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1.2 ECRAN 4: 
On installe deux tampons de 32ko pour sauvegarder le bureau 
(tampon Nr 2) et les dessins (tampon Nr 3). Un autre tampon de 
32ko (tampon Nr 1) est installé par SUPERGEM.SCR pour 
sauvegarder l'écran lors de l'affichage de boîtes de dialogue (voir 
le 11.4) Le mot RASTMEMSET initialise cs 3 tampons en fonction 
de la résolution du moniteur utilisé : DEMOGEM fonctionne aussi 
bien en haute résolution {N et B) ou en moyenne {couleur} La 
basse résolution n'est pas prévue. On pourrait ajouter une boîte 
d'alerte pour empêcher de lanoet DEMOGEM en basse résolution … 


1.3 STOCKAGE DES PARAMETRES DES FENETRES 
Le fonctionnement des fenêtres nécessite différentes constantes 
regroupées en vecteurs ou en tableau (cf. écran 6) : 


Le vecteur w_handles contient les 3 index (handle) des fenêtres 0 
(bureau) 1 (dessin) et 2 (auxilliaire) Ces index fournis par le GEM à 
la création des fenêtres lui permettent de les identifier par la suite. 


Les vecteurs wi_comps et w_titles n'ont que 2 composantes (fon. 
1 et 2) car la fenêtre O n'a aucun attribut (c'est juste un cadre de 1 
pixel dont l'utilité sera vue au 11.4) Les composantes de Wi_comps 
définissent les attributs (présence ou non d'une ligne de titre, 
d'ascenseurs etc, cf [1] p.116 ou [2] p.107) et Wi_titles contient les 
adresses (16bits) des chaines de caractères formant les titres des 2 
fenêtres. Aucune d'elles ne contient de ligne d'information. 


Le tableau Wi_sizes (4 lignes 4 colonnes) contient les tailles EN 
NOMBRE DE CARACTERES de différentes fenêtres : 

ligne 0 (ter indice = O} taille maximale de la fenêtre 1 (pour 
Wi_FULL) 


ligne 1 : taille actuelle de la fenêtre 1 

ligne 2 : taille (fixe) de la fenêtre 2 

<igne 3 : taille antérieure de la fenêtre À (pour 
Wi_FULL) 


Chaque ligne contient 4 nombres de 16bits (le 2ème indice du 
tableau varie de O à 3):x,y,w,h, dimensions en 
CARACTERES de l'INTERIEUR des fenêtres, x et y pour les 
coordonnées du coin supérieur gauche et w et h pour les largeurs et 
hauteurs. 


J'ai fait ce choix bien qu'il complique un peu les choses car on a 
souvent à inscrire du texte dans les fenêtres et il est alors 
souhaitable que l'intérieur de la fenêtre borde juste le texte. 


Remarquer que lors d'un déplacement ou d'un redimensionnement 
de la fenêtre active le tampon de message contient la position et 
la taille du contour EXTERIEUR en PIXELS demandées ! |! faut les 
convertir en taille intérieure (c'est le rôle de EXT>INT , écran 13) et 
en nombre de caractères : voir les mots WI_MOVE et WI_SIÆ, 
écrans 13 et 14. 


(4 SAUVEGARDE ET RESTAURATION D'ECRAN 
C'est le point le plus complexe de l'AES... Trois cas se présentent : 


114,1 BOITE D'ALERTE : Pas de problème, le mot ALERT 
de SUPERGEM.SCR, comme le FORM_ALERT du C se charge de 
tout, il n'y a rien à faire | 


1.4.2 BOITE DE DIALOGUE : 
C'est encore très simple, il suffit de recopier la partie de l'écran qui 
va être cachée par la boîte dans un tampon et de la restituer 
après : SCR>MEM1 et MEM1>SCR sont fait pour ça ! 


Le mot DIALOG (écran 20) constitue une macro toute prête pour la 
gestion complète d'une boîte de dialogue, il utilise 
SHOW_OBJECT et HIDE_OBJECT définis dans SUPERGEM.SCR 
qui assurent la restitution d'écran à partir du tampon Nr 1. 


1.4.3 CAS DES FENETRES : 
Si plusieurs fenêtres sont présentes à l'écran et si on en déplace 
une, Ou Si on en ouvre ou en ferme une, ou encore si on lance un 
accessoire, redessiner l'écran après est une tâche complexe. 


À chaque fois qu'une action de l'utilisateur modifie l'aspect d'une 
au moins des fenêtres ouvertes par le programme, l'AES envoie le 
message :wm_redraw (820) et calcule une “liste des rectangles 
modifiés". Ce message est traité par ke mot DISPATCH (écran 22): 
le programme exécute alors le mot REDRAW_SCR (écran 12} qui 
passe en revue cette liste et réaffiche le contenu des fenêtres 
touchées. 


Le mot REDRAW calcule l'intersection du rectangle fourni par 
l'AES et de la fenêtre courante (celle dont l'index et les 
coordonnées ont été mis par l'AES dans le tampon message), qu'il 
ne faut pas confondre avec la fenêtre active, car l'AES passe 
successivement en revue toutes les fenêtres ouvertes. limite 
ensuite la zone de dessin à cette intersection (c'est le rôle de 
SET_CLIP) et lance l'affichage de contenu de la fenêtre courante 
par W_FILL défini à l'écran 11. 


Quelques remarques : 


-Le mot CORRECT (écran 5) a pour seule raison d'être 

… Une erreur du VFB3. 
En effet, les rectangles peuvent être définis de 2 façons : soit par 
les coordonnées (x, y1, x2, y2) des sommets supérieur gauche et 
inférieur droit, soit par {xi, y, w, h) le 2ème sommet étant 
remplacé par la largeur et la hauteur du rectangle. Pour passer de 
l'un à l'autre les formules correctes sont : 

X2=x1+w-1 ÿ2=yl+h-1 
et VF83 oublie les -1 !! 
(l'origine est (0,0) le point opposé en monochrome est (639,399) les 
largeurs et hauteurs valant 640 et 400...) 


-Noter que les mots provoquant des modifications des 
fenêtres (WI_OPEN, WI_CLOSE, W_MOVE, etc) n'incluent pas de 
fonction d'affichage : ils exécutent WIND_SET (dans WI_RENEW) 
qui demande à l'AES d'envoyer le message :wm_redraw et de 
préparer la “liste des rectangles modifiés", les modifications 
d'écrans sont assurées ensuite par REDRAW_SCR. 


-Utilité de la fenêtre O (bureau) : si le bureau n'est pas 
déclaré comme fenêtre par WIND_CREATE {cf WO_OPEN écran 
1) la mise à jour du bureau n'est pas faite par REDRAW_SCR, car 
seules les fenêtres DECLAREES comme telles sont prises en 
compte par l'AËS comme fenêtres courantes, 


Si la restitution du bureau n'est pas souhaitée, il suffit de supprimer 
WO_OPEN et WO_CLOSE. 


-À la fermeture d'un acæssoire l'AES envoie le message 
‘m_redraw et le programme exécute alors REDRAW_SCR. C'est 
pourquoi le réaffichage de l'écran est beaucoup plus lent après 
l'accssoire "Installation d'imprimante" de la disquette ATARI, 
qu'après celle de la boîte "Informations" de DEMOGEM (qui utilise 
ke procédé 1.4.2) surtout lorsque plusieurs fenêtres sont ouvertes... 


1.6 LA FONCTION EVNT_MULTI, 
Elle attend la réalisation d'un ou plusieurs événements : frappe au 
clavier, clic ou mouvement de la souris, message, ou "timer. 


Pour ne pas avoir à passer par la pile les 16 paramêtres qu'elle 
requiert, le VF83 dispose d'un tableau appelé EVENTS pour 
stocker ces valeurs. Il faut initialiser ce tableau en début du 
programme (et à chaque fois que le type d'événement attendu est 
modifié), c'est le rôle du mot LOAD_EVENTS (écran 19) 


Ensuite, juste avant chaque exécution de EVNT_MULTI il faut faire 
PREPARE pour recopier le contenu de EVENTS dans les tableaux 
internes du GEM. 


EVNT_MUUTI retourne sur la pile le type d'événement survenu : 
comme il peut se produire plusieurs événements simultanés (en 
particulier quand le "timer" est actif), on ne testera pas si 
l'événement survenu est EGAL à :mu_mesag par exemple, mais s'il 
CONTIENT :mu_mesag, d'où le AND au lieu d'un = dans la boucle 
BEGIN … UNTIL de DEMOGEM (écran 23) 


1,7 FONCTIONS VO. 
Leur utilisation ne pose guère de problèmes. Vous trouverez dans le 
listing qui suit comment : . 
dessiner un segment (PLINE) ou un cercle (ARC) 
+empli une surface rectangulaire avec un motif (W2_FILL) 
“limiter l'aire de dessin (pour que ceux-ci ne débordent pas 
de la fenêtre (SET_CLIP) 


Noter l'utilisation du mode XOR (mode 3 de la fonction 
SWR_MODE) pour effacer les tracés périmés au fur et à mesure du 
déplacement de la souris : dans ce mode chaque pixel du nouveau 
dessin est inversé (noir -> blanc et inversement) par rapport à son 
état antérieur, donc en traçant deux fois la même figure... on 
l'efface ! 


Dernière recommandation : 

NE PAS OUBLIER DE CACHER LA SOURIS (HIDE_C) AVANT 
TOUTE MODIFICATION DE L'ECRAN : dessin, affichage d'un 
objet AES {boîte de dialogue ou d'alerte etc.) 

Oubliez le pour voir … C'est sans risque mais le résultat est moche ! 
BIBLIOGRAPHIE : 


H] Clés pour ATARI ST Tome 2 Editions du P.SI. 
{2] Le livre du GEM Micro Applications. 
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[0 S 
ÿ \\ DF 28 03 88 \ Fonctions VDI nécessaires DF 15 OS 88 
| “EXEMPLE DE GESTION 
2 D'UN MENU, DE FENETRES, D'UNE BOITE DE DIALOGUE, : sur sode (| aode -- } intin ! &32 0 1 VDI ; 
4 Le not DEMOGEN permet d'ouvrir deux fenêtres, de les déplacer, : sf interior { style -- ) intin ! &23 0 ! VDI : 
5 de redisensionner l'une d'elle {fenêtre de dessin), toutes les : sf style ( styleindex -- } intin ! &24 Q 1 VDI : 
6 restaurations d'écrans étant assurées. : sf color {color -- 3) intin ! 425 0 1 VDI ; 
7 : sf periseter { pervis -- ) intin ! &{üd Q ! VDI ; 
8 Dans l'une, on peut dessiner des cercles ou des segsents de 
8 droites iclic gauche pour cosaencer, droit pour fixer Île dessin) 
14 le choix étant fait par le menu, l'autre est sans fonction (elle \\ Pour sodifier la couleur ou l'épaisseur des lignes ... 
14 est siaplenent hachurée), : sh color { color -- j intin ! &17 0 ! VDI ; 
12 t sl width  { nidth -- ) ptein | &ié 1 Q VDE :; 


13 Une boîte de dialogue et trois boîtes d'alerte sont gérées : 
voir le act ALERT dans le fichier SUPERGEM,SCR et le sot DIALOG 
15 à l'écran 20 du présent fichier, 


un 
E 


1 4 

ÿ  Oniyforth \ Ecran da SEc, Jemeñit DF 14 03 88 \ Installation des tanpons, choix de la résolution, DF 25 03 84 
1 ‘needs tabcadr : absaddr 0 forthstart dt ; Create memMFDB2 7 , 0 , &64Û , k400 , L4Ù , 0 , 1, 

2 \needs ttabel 2? loadfron assemble.scr 0,0,0, 

3 \needs degrt 2 loadfroa sart,scr neaNFDB2 scrinen ecrmee2 ! {top Ytop Width-1 Height-i -- } 

4 \needs case include case _of.scr sesMFDR2 meaiscr mea2iscr ( Xtop Ytop Width-1 Height-1 -- ) 

5 \needs hdef inciude ges\gendefs.scr Create menMFDRS 7 , 0 , k640 , &400 , &40 , 0,1, 

6 \needs ges include ges\basics.scr ,9,0, 

7 Onlyforth ger aïso definitions aeaXF DES scrèaen scrèmess { Etop Ytop Width-i Height-1 -- ] 

8 ‘needs :menu inciude deao h.scr aeRMFDRS mesiscr sesiiser ( Xtop Ytop Width-1 Height-{ -- } 

9 \needs q nouse : q_ mouse à124 0 Q VDI ptsout 28 swap intout & ; 

{9 \needs piine : pline àr ptein ré 2+ array! 8 r} Q VDI : : q_extend { flag -- } intin ! 4102 Q 1 VDI ; 

15 \needs arc 5 loadfros gen\vdi.scr : setNFDR { adr -- } 

12 \needs sf style 3 load r Ô o_extend intout 26 ré 4+ 2! intout € $1G / ré & + ! 

13 \neede evnt multi 2 load : 1 g_extend intout 8 + @ r> &i2 + ! 3 

14 \needs tree! include gen\supergea,.ser : rastaenset { -- } \ initialisation des taapons (résolution) 
15 cr 4 425 thru seeMFDB1 setMFDB nemMFDR2 setMFDB meaMFDRS setNFDR ; 

2 5 

0 \ Fonctions ÀËS nécessaires DF 24 02 BR \ Sauvegarde et restauration d'écran DF 26 03 88 
1 2 loadfrom ges\AES.scr \evnt aulti et consorts ... : correct { Width Height --- Width-! Height-1 j Î- or 1- ri : 
2 8 loadfron gen\AËS.ser \ #enu nords 

3 417 loadfron geæ\ES,scr \ form words + set chip {x ymh--- 7} \ linite la zone de dessin 

4 426 loadfron gem\ÂAËS,scr \owindon nords correct over dt sciip; 

5 &34 Joadfrom gemAES,scr \ RSRC norde 

A +: ser size { -- GO Ia ha j \ taille de l'écran entier 

7: objc draw intin & array! k42 & 1 objc tree 26 addrin 2! 1 ÀËS 0 G KG cwidth # &25 cheight # : 

8 = abert" Object error " : à free sise { - x y 1h) \ dis "libres" écran thors menu), 
9 ÿ 7 und get intout 2+ 48 ; 
16 : ?err üs abort" Graphic error “: 
11 : graf growbox intin 8 array! &73 8 { Q ÀES Zerr : : save desk gcr size correct scr>aen? ; 
12 : graf_shrinkbox intin 8 array! &74 8 1 0 AES Terr : : restore desk ser size correct aea2}ecr ; 
3 
14 2variable acfaddr Gi, sofadôr 2! \ Cocrdennées en pixels du coin haut gauche du chaap de vue de 
15 : graf mouse intin ! aofaddr 26 addrin 2! &74 Ï { 1 ÀES ?err ; variable x_top variable y_top \ la fenêtre! 
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\ Conposantes et tailles des fenêtres 


& 


Create ni conps 4 ailot \ coaposantes des ? fenêtres 
Create mititles 4 allot \ adresses des 2 chaînes de titre 
Create wihandies 6 allot \ “handies' des 2 fenêtres +‘geck" 


mi handle -- 5) ni handles 2- \n = N° fenêtre active 
BEGIN 2+ dup & 2 pick = UNTIL nip mi handies - 2 ; 


array | dial dia? -- } \ Crée la structure"tabieau de nosbres” 


Create Z2dup swap , , + 24 allot 
Does? àr 
Pdup ré 2+ 8 © snap rê 8 € and \ test validité des indices 


IF rê 24 8 rot # + 


EiSE ri drop Zürop . 


28 ri 4t+ 
Erreur d'indices ! 


L] 


THEN: 


44 array ni sises \ i j ni sises retourne l'adresse du terne 
(1,5) du tableau si jé ET j4, et un sessage d'erreur sinon. 


7 


Consosantes et tailles des fenêtres DF 23 (3 68 
$ 


‘int sise Ü h -- x y larg haut } \ dis,int,fenêtre N°n {pixels} 


\ Faille et position des ascenseurs {fenêtret) 


Qwisires 48 cheight # >r cuidth # àr 


cheight & èr chidthé rirèr} ; 

ext size Î n-- x y larg haut à \ dis.ext. fenêtre Ntn ipiveis) 
7 0 r8i- 28 ni comps + 8 or int size 

mind calc intout 2+ 48 : 


MIHiIT Ü -- 1 \ reaplissage intérieur fenêtrel 
neaMFDRS absaddr swap scrMFDB >absaddr snap contri ki4 + 4! 
“_top € y ton int sire correct 2swäg à copyopaque : 


m2#ill { -- ) \ renplissage intérieur fenêtre 2 
Fswr_sode 1 sf color 3 sf interior 424 sf style 
Ô sf perimeter 2 int size correct 2over dt bar ; 
8 
DF 28 05 98 


hslize {-- ) wi handies 2+ & inf hslize 

K1Q00 1 2 mi sizes 8 0? misites @ #/ 900 mind set ; 
hslide { -- j Ni handles 24 8 tnfhelide x top & cwidth / 
DU wi sizes 8 - HI000 0 2 mi sizes 8 | 2 mi sizes Ë - 
Pdup IF #/ 0 0 0 mind set ELSE Zérop 2drop THEN ; 


v_siize { -- } wi handles 24 & mé vsiiie 

1000 1 Si sises 8 0 3 ni sizes 8 #/ 000 wind cet : 
vslide © -- j wi handies 2+ & 
Ü Lui sises 8 - K1600 03 mi sizes 8 | Jui sires @ - 
Pdup IF #/ 0 0 Q wind set ELSE Zdrop 2drap THEN : 


set_slides ( -- j \ réglage global des 2 ascenseurs 
hslize h slide vslize v slide | 


iwf_vslide y_top 8 cheight 
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DF 26 03 88 | Initialisations pour les fenêtres 


5. 


\ Guverture et feraeture des fenêtres 


Page 2 
9 


DF 28 03 88 
477 constant x _ max &23 constant y sa» 

miinit { -- }  Fnitialisation tailles titres et Coaposantes 
1 5 476 k20 9 0 wi sizes 4! 13476 820 1 0 mi sizes 4! 
10 5 K30 8 2 G wi sizes 4! 1 3 k76 &20 3 0 ni sizes 4! 


&* Fenêtre de dessin * mi titles ! \ Fenêtre ! 
0* Fenêtre auxiliaire " mi titles 24! \ fenêtre 2 
inase close + :full #4 size + :aove + 

thelide + :vslide + Wi_conps ! \ fenêtre ! 
inane tclose + :aove + ni caaps 2+ ! \ fenêtre 2 


ni handles 6 erase : Vhandles à 0 


Mi_string { handle function# üstring -- ) 
jabsaddr swap 9 0 wind set ; 

set title Ün --) 24 dup or #i_handles + & 
iwfnañe r) 2- ni titles + & mi string ; 


10 


DF 28 55 88 


grombox {on -- 7} ùr little 48 r} int size graf groubox ; 


shrinkbon Ü n -- } dr Little 48 r int size graf shrinkbox ; 
miogen (nn --}) \ crée et ouvre ja fenêtre N° n 

dup 2# Ni handies + & IF drop exit THEN 

dup Or 1-26 mi conps + 8 r& ext size Wind create 

dup wihandles r& 28 # 

ré grombox rê set title r> ext size Wind_open ; 


miclose (n--)  \ ferne et détruit la fenêtre N° n 
dup 2F hi handles + dup 8 swap off dup mind close 
“ind_delete shrinkbox : 


11 


Buverture et fermeture de la fenêtre "bureau" 
#Ü open ({ -- } 

Ÿ free_size wind create dup si handles ! 

free size wind open : 


DF 28 05 88 


: # close { -- } nihandles € dup mind close sind delete : 


\ Mots utilitaires pour déplacements de fenêtres 


: getaessage À n --- contenu message } 


24 message + E : 


MAT Ü -- ) \ reaplit l'intérieur de la fenêtre courante 
S getsessage wi CASE 0 OF restore desk ENDOF 

1 0F wi fill set slides ENDOF 

2 OF m2 fill ENDOF ENDCASE ; 
\ set à jour la fenêtre courante 
over wi ext size mind set : 


wi_renen | -- } 


LS 


3 getaessage 5 


en N°43 Mars 1966 
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12 15 
ÿ \ Hise à jour de l'écran par les rectangles... DF 28 03 88 \ Effet d'un clic dans une glissière d'ascenseur DF 12 03 88 
l \ (fenêtrei} 
2: rect update ! functionh -- x ywh } 
3 3 getaessage swap mind get intout 2+ 48 ; : mlarrom ( -- j 4 geteessage CAGE 
4 ÿ 14) OF ytop @ cheight / {1 3 ni sizes 8 - 0 | ui sizes 
5 » redram i x y wh -- ) \ traitenent d'un rectangie aa» cheight # y top ! v slide nt fill ENDOF 
5 swap 3 pick + 4 getnessage 6 getsessage + ain Lit) OF y top # cheight ? 1 3 wi sizes 8 + y aax 1 5 
T swap 2 pick + 5 getressage 7 getaessage + ain wi sizes 8 - min cheight # y top ! v slide wl fil} ENDOF 
8 3roll à getmessage #ax 3 roil à getaessage max de) OF x top € cwidth / 1 2 ni sites E - 0 0 mi sizes € 
9 Z2swap Zover d- 2dup Ÿ? swap 0? and aax cwidth & x top ! h slide wi fill ENDOF 
16 IF get clip wi fill ELSE 2drop 2ürop THEN ; 5 1) OF x top @ cuidth / 1'2misizes Ë + x aax 1 2 
1! ni sises 8 - sin cnidth# x top ! hoslide ml fill ENDOF 
12; redraw ser 4! -- ) \ on redessine tous les rectangles modifiés ENPCASE : 
13 swf firetxywh rect update 
i4 BEGIN 2dup or WHILE redraw :wf_nextxymh rect update REPEAT 
15 2drop 2drop ; 
13 16 
0 \ Changesent de fenêtre, déplacement d'une fenêtre DF 28 93 88 \ Effet d'un déplacement des ascenseurs (fenêtrei) DF 27 05 88 
{switop {--3) \ changement de fenêtre active 
2 3 getnessage nif \ exclure ia fenêtre 0 (bureau) à nivelide { -- } \effet d'un déplacement glissière verticale 
3 IF 3 getaessage 410 à 0 0 Q wind set THEN ; à getsessage 0 3 wi sizes € 1 Jui sires € - &1000 #/ 
4 Q ui sizes + cheight # y top ! vslide wi fill ; 
5 extiint ? -- x y h ) \ conversion coord ext,--?coord int. 
& 1 3 getsessage nid !- 25 wi coups + À message 8 + 48 : mihslide { -- ) \effet d'un déplacement glissière horizont. 
7 mind calc intout 2+ 46: à getaessage 0 2 ni sizes @ {2 ni sizes € - 41000 #/ 
8 0 O wi sizes 8 + cwidth# x top! hslide mi fill ; 
9 ni sove i--) \ déplacesent fenêtre courante {barre titre) 
10 5 getmessage mit àr exthint 
14 rot cheight / 0 ! wi sizes & max \ Variables pour les dessins dans la fenêtrel : 
12 yoaax rot cheight / - ain ré ji mi sizes 
13 cwap cuidth / 0 Ü ni sites Ë max DEFER sotif 
14 max rot cwidth / - ein ri 0 wi sizes : variable end variable stop 
JS Wireñen : variable X0 variable YO variable XÏ variable Yi 
14 17 
0 \ Modifications de taille fenêtrel DF 27 03 88 | Dessins dans la fenêtre | DF 09 0$ 88 
1 ; dess ligne { x y --- } À\ segment droite de (X0,Y0i à Îx,yl 
2 mbsize À --) \ sodification taille (coin inférieur droit) Xü 8 VO @ 2swap hide c 2 pline show c ; 
3 extint cheight / 5 sax : dess cercie { x y --- } \ cercle centre{l0,YG)passant parix,yi 
4 rot cheight / y mar - negate min | à mi cites ! ü 3690 2swap X0 8 YO @ 2cwap 
5 cwidth / Baax x max rot cmidth / - min ! 2 ui sites ! YO 8 - dup at rot 10 & - dup at dt dsgrt hide c arc show c ; 
b mi renen set slides ; 
7 à dessin À --- } \ dessin d'une droite ou cercle et sauvegarde 
gs mi full { -- ) \ passage à la taille aax et vice-versa a souse drop YO ! 10 ! 
9 H?uisires 8 0 2 wi sises 8 © À coin supérieur droit) g_souse drop 2dup YŸ1 ! Xi ! aotif 
10 1 jumisises 8 0 Gui sizes 8 € or BEGIN \'attente clic droit pour fixer ie tracé 
1H IF 1 Qui sizes 48 3 @ ni sires À. g_nouse -rot Zdup Y{ € = swap X1 8 = # 0= 
12 0 Gui sizes 48 1 0 ui sizes 4! IF X1 8 Y! & sotif \ effacement sode XDR 
15 L'int size 2drop y top ? x top ! wi renem Zdup Y1 ! Xl !aotif \ nouveau tracé 
14 ELSE 3 G wi sizes 4€ { O0 ni sizes 4! ni renew set siides ELSE 2drop THEN 23: 
15 THEN : UNTIL hide c {int size correct scrèkess show c ; 
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0  DEFER disfig DEFER rest _senu \ DF 28 03 88 : disbureau i --- ) 4 getsessage infos = \ DF 28 05 88 
1: smtch ({--) GO getsessage :an selected = IF -1 :boxi dialog drop THEN : 
2 IF 3 getaessage up rest #enu ï disfichier { --- } 4 getwessage CASE 
3 sfiqures = ÏF disfig ELSE :cess alert drop show c THEN souvri CF { ni open ENDOF 
4 ELSE tcess alert drop show c THEN ; souvr2? OF 2 wi open ENDOF 
5 ifin OF :bye alert | = IF end on THEN ENDOF  ENDCASE ; 
& : dessins { -- } f int size cheight / 6 3 wi sires @ - à cwidth : disfiqures { --- } 4200. evnt timer \ pour que le clic sur Île 
7 402 wi sizes À - àr 2drop r? r> or IF :dess alert drop exit 4 getaessage CASE \ seau ne cospte pas dans dessine 
8 THEN shomc 3 sur aode [| int size set clip stop ofé icercle OF Î'] dess cercie is sotif 
9 BEGIN erepare evnt_aulti 201001ü and CASE \ filtrer TIMER 6 check dessins ENDOF 
19 tau sesag OF switch ENDOF ligne Dh 5 ee: limne Is sotif 
il tau_button OF dessin ENDOF ENDCASE stop & ÿ 1 check dessins  ENDOF 
$2  UNTIL : stop OF stop on  Ô à check ENDOF 


13 \\ 3 swr node fait passer en mode XOR, ce qui pernet l'efface- 
F4 sent par un 2ème tracé superposé au fer, Sans celà, on obtient 
19 de très jolis faisceaux de droites ou de cercies 


19 

Q \ initialisetion du tableau EVENTS. 

Î : ivad events À --- ; 
2 3009410010 \ attente de ROUTON ou MESSAGE au TIMER 

5 tit \ pas de double-clic, 2 boutons prie en coapte 

4 606000 00606 \rectangies non spécifiés 

j üû \ délai à aillisecondes 

ô events Kb array! : 

7 

8 \ Mots pour le ñeñu 

9: reset _senu { titleñ -- ) | renet le titre en affichage norsal 

19 tenu tree! 1 menu tnoreal : 

ÿl 

12 ‘reset senu Is ret menu 
13 

143 check © fi #2 -- ] :aenu tree! \ piacer/oter Vdans le menu 

F5 ijigne swap menu icheck :cercle swap senu icheck :; 

20 

9 À Gestion d'une baîte de diaioque 5F 28 03 88 : 
PF boxk = N'(label} de la boîte, field# = N° du premier chaap 

2 \ de texte éditable ou -i s'ii n'y en à pas. 

à 

4: dialog { field# boxt -- button : 

» tres size set clip ï redessin autorisé sur tout l'écran : 
8 tree! (curoff) hide c shos object 

7 furs do dup deselect 

8 hide cbject ( curon) : 

9 


IL Les #ots SHOW OBJECT et HIDE ORJECT sont des macros définies 
12 dans SUPERGEM.SCR. La sauvegarde de la partie d'écran recouverte 
Î3 par l'objet {ici la boîte de dialoguer est aseurée par 

14 SHON_ORJECT dans le tampon d'écran n°i tinstallé par SUPERGER) 
15 HIDE ORJECT restitue ia partie d'écran cachée par l'objet. 


DF 23 GS 48 \ Traitement des aessages 


ENDCASE ; 
" disfiqures is disfig 
22 


DF 29 93 88 
dispateh À -- } 
hide c @ getaessage :an selected = 
IF 3 geteessage dup reset senu 
CASE :hureau OF disbureau ENDOF 
tfichier OF disfichier ENDOF 
tfiqures OF disfigures ENDOF ENDCASE 
ELSE 1 mind_update Ô getaessage CASE 


wa redram OF redram scr ENDOF 
:ws_topped OF nitop  ENDOF :ne_noved OF Wi_Rove  ENDOF 
wa closed OF 3 getaessage ni wi close ENDOF 
tua fuiled OF wl full ENDOF sum sized OF wi size ENDOF 
iwnhslid OF ui helide ENDOF un vslid OF wl_vslide ENDOF 
ium_arroned OF ni arrow ENDDF 


ENDCASE Q wind update 
THEN show © ; 


23 
settings ! --) 
rsrc_Ïcad" desoges.rsc"  \ charg, fichier ressources 
load events Vinit, tableau EVENTS pour evnt aulti 
0 graf mouse Ï sur aode : \ souris = #lêche, aode normal 


\ DF 28 05 88 


descaem | --) 
grinit settings rastmencet mi -init save desk 
at? page at ser size correct scraesi \ effacer tampon dessin 
tsenu tree! Ï aenu bar \ afficher barre menu 
wÜ_cpen 1 wi_open \ouvrir fenêtres : bureau + fen.! 
J'int size 2drop y top ! x top ! end off show € 
BEGIN prepare evnt aulti 
teu_oesag and ÎF dispatch THEN end 
UNTIL hide c menu tree! Ô menu bar ecr size set clip 
31 DO 24 m1 handies + @ IF Ïi ni close THEN LO0P 
nû close restore desk rerc_ free grexit : 
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objectif Division et racine carrée sur 32 bits. (Suite) 
langage Assembleur 4502 (principalement pour ATOS) 
Date 3/1/685 avec tous fes voeur 


Division et Racine carree en LM 


Voici donc la division 32 bits/32 bits et la racine carrée 32 bits en assembleur 4902 qui suit exactement l'algorithme 
déjà vu dans un.article précédent .Pas de difficulté particulière pour qui sait faire des divisions en assenbleur:sauf 
qu'ici il faut faire les décalages-Les comparaisons sur 4 octets. Il y avait quand méme une difficulté car sur la pile: 
ces 4 octets ne sont pas consécutifs.donc pas question de faire de boucle: d'où la lourdeur de certains passages: 
Syntare : DIV € ud dividende : ud diviseur —- ud quotient, ud reste ) 

SORT Cud nonbre --- u racine carrée } 
Exenole : 1234547, 3454. DIV D, G, donne 175 et 457 

12244567, SORT LU, donne {11 : 
11 est à noter que SORT peut donner le reste (différence entre Le nombre de départ et le carré du résultat) si l’on chan 
ge la Ligne ( 8 LD, ..) par celle nise entre parenthèses ( A LOVs de 


Rien de particulier dans l'assentleur ES? si ce n’est que j'utilise la zone de travail AS à A9 que l’on désigne 
généralement par la lettre “NN désigne A6: N-t désigne A5, Ntf donne A7 etc. 

Les écrans 3 et 4 ne contiennnent que le code asseablé correspondant .11 peut donc Etre compilé directement sans assem- 
bleur sur ATME, 


Mnicalement Jean-Luc SIRET 


FILE: DIVLME,FTH / SCRN# Î FILE: DIVEM2.FTH / SCRME 2 

0 \ Division 42 bits, 32bits ——- des Re ARTE \ Racine carree 22 bits 

1 ONLY FORTH DÉFINITIONS ALSD ASSEMBLER HE DE SORT 4 E LDY, O0 # LDA: BEGIN: DEN: 0 :X STA: DEY: 
2 LABEL (3 4% OSts 7 :X AOL: 4 ,X AOL, SX RL: G= UNTIL, A4 STY: A7 STY: AB STV: AS ST: 

3 HU RO: 34 AL: OX ROL, 1 :X AOL, AS ROL: RTS: AA STY, AB STV: A5 STY: 

4 LABEL (C) SEC. 2 ,X Lim, 46 SEC: FHA: 3 X LDA, A7 SEC, FHA: 10 # LDY, BEGIN, (D) JSK: (D) JSR: 

5 o -X LDA. 46 SBC. PHA: 1 X LDA. AS SBC. PHA; AA Loa. A6 STA. AB LDA. A7 STA, 0 # LDA: A3 STA: 
& 45 LIGA. Ok SEC, CS IF; A4 ASL, A7 AOL, AË ROL, SEC, À£ AOL. A7 RL: 
7 PLA, t 4X GTA: PLA, OX STA; PLA: 3 :X STA: PLA: AB ROL,: (C) JSR: AA ROL. AE AL, 

ë 2 ,X STA SEC, CS NOT IF, SHAP DEY, G= UNTIL; 

? THEN, PLA, PLA: FLA: PLA: CLC: THEN, RTS: 

10 CODE DIV 2 .X LDA, A6 SA; ? 2 STY: 3 -K LDA: 7 STA; (4 # LDV: BEGIN: 0 .X LOG: 4 :X STA: INX: DEV, Os UNTIL: 
fi 3H 37, 0 -X LOA, AS TA; 0 4K STY, 1 :X LDA: 8 # LOY: BEGIN. INY: DEV, O= INTIL: 

12 A9 STA: 1 2 X 57V: A5 STY, AA LDA, FHA. AB LD. FUSH JMP: 

13 20 E LOY: BEGIN, (D) J6R: 6 :X LSR, (0) JR, 6 :X RÜL, È 

{4 DEV. Q= ENTIL: NEXT JMP: 1€ 

15 —} ONLY FORTH DÉFINITIONS DECIMAL 

FILE: DIVMS.FTH 4 SCRNK 3 FILE: DIVLMH2,FTH 7 SCRN# 4 

9 \ Division \ Racine carrge 

1 ONLY FORTH DÉFINITIONS HEX CREATE SORT HERE DUP 2- ! 

3 HERE DUP DUP O6IÉ , 0736 : 0436 ; 0936 : 0234 , OXIE » OÙ à o4A0 , 0049 : 95CA : 6800 ; FADG , ALS4 ; A7E4 
3 9136 : A526 : 60 €, A8S4 , A9€4 , AAG4 . AER4 ; 124 : 1040 

5 HERE DP B538 , ES02 : 48M , 02B9 : A7ES : BS48 : ES00 : 0049 . ARS . A6OL , A726 : A926 : 2838 : 2686 : 
6 48a5 , O1RG ; AVES : A949 à E9AS : 9000 » LODF : 0195 à 26A7 ; 2Û0AS à A42L ; AB2b : DOES : AOD7 : 
1 He , 6800 , 0355 . 9968 , 3802 : OSEO » GS , 6B4S : ER0s , DOS , ASFC : 484A ; ABAS : 40 D: 054$ : 
5 ÔfS : 

3 ONLY FORTH DÉFINITIONS DECIMAL 

10 CREATE DIV HERE LUF - ! : 

ii 0285 ; A68S : 0274 , 03R5 : A7ES : 04984 : OOBS : ABES » 

3 0094 ; OIBS , 4785 » 0194 , 584 : 2040 » 20 £, ROT ; 

le 0656 : 20 Cr » 0696 : D089 : ACF3 ; 0950 : 

15 —— 


22 éDi N° 4% Mars (988 


um 


